Проверить тип переменной

[satana]

В php есть функция

is_int(var);

если переменная имеет тип integer то она возвратит true, есть ли что-нибудь такое в Delphi, нужно проверить является ли переменная целым числом.

[Rapid]

Можно написать свою функцию проверки, вот примерный код:

 
function Isint(ch : char) : Boolean;
begin
if (ch >= '0') and (ch <= '9') // цифры
or (ch = #8) // клавиша <Backspace>
then Isint := True // символ допустим
else Isint := False; // недопустимый символ
end;

Если число имеет больше одного знака, то функцию нужно использовать в качестве тела цикла, чтобы проверить все знаки.

[satana]

А как это сделать обработкой иключительной ситуации?

[Rapid]

 
try
a:= StrToInt(Edit1.Text);
except
on E: EConvertError do
ShowMessage('a is not integer value');

Этот код "ловит" ошибку, и если ошибка поймана, выполняются инструкции после слова do.

[satana]

Сообщение от Rapid

 
try
a:= StrToInt(Edit1.Text);
except
on E: EConvertError do
ShowMessage('a is not integer value');

Этот код "ловит" ошибку, и если ошибка поймана, выполняются инструкции после слова do.

что то не получается...
Вот полный код моей процедуры!

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
try
  a := StrToInt(edit1.Text);
except
on E: EConvertError do
ShowMessage('a is not integer value');
end;
end;

Если в эдит вводиш строку то работа программы прерывается и вылазиет ошибка делфифского дебагера EConvertError!

[Rapid]

Когда появляются ошибки времени выполнения (если ты запускаешь прогу из Дельф) то приходят 2 сообщения об ошибке (одно от дебагера, второе от винды) так вот, инструкция try ловит ошибку только в винде. Если сделать экзешник то ошибки не будет (тк экзешники уже не обрабатываются дельфийским дебагером)

[iwp_work]

С уважением конечно к авторам, но так и хочется сказать:
неужели уже не осталось форумов, где пишут знающие люди, а не все кому не лень всякие свои догадки.
Проверить тип переменной через
try
except
end;
- это же ужас.

Вы на работу если будете устраиваться программистом, не вздумайте ляпнуть подобное

Есть же для этого нормальные методы, даже в хелпе описаны

Pascal
function VarType(const V: Variant): TVarType;

VarType returns the type code of the given variant:

VarType Contents of variant
varEmpty The variant is Unassigned.
varNull The variant is Null.
varSmallint 16-bit signed integer (type Smallint in Delphi, short in C++ ).
varInteger 32-bit signed integer (type Integer in Delphi, int in C++).
varSingle Single-precision floating-point value (type Single in Delphi, float in C++).
varDouble Double-precision floating-point value (type double).
varCurrency Currency floating-point value (type Currency).
varDate Date and time value (type TDateTime).
varOleStr Reference to a dynamically allocated UNICODE string.
varDispatch Reference to an Automation object (an IDispatch interface pointer).
varError Operating system error code.
varBoolean 16-bit boolean (type WordBool).
varVariant A variant.
varUnknown Reference to an unknown object (an IInterface or IUnknown interface pointer).
varShortInt 8-bit signed integer (type ShortInt in Delphi or signed char in C++)
varByte A Byte
varWord unsigned 16-bit value (Word)
varLongWord unsigned 32-bit value (type LongWord in Delphi or unsigned long in C++)
varInt64 64-bit signed integer (Int64 in Delphi or __int64 in C++)
varStrArg COM-compatible string.
varString Reference to a dynamically allocated string (not COM compatible).
varAny A CORBA Any value.

The value returned by VarType corresponds to the VType field of a TVarData record.

The type of a variant can be changed using VarAsType.

[mihali4]

Сообщение от satana

В php есть функция. Если переменная имеет тип integer то она возвратит true, есть ли что-нибудь такое в Delphi, нужно проверить является ли переменная целым числом.

Есть такая - в любом случае преобразует строку в число без эксепшена:
function StrToIntDef(const S: string; const Default: Integer): Integer;
И подобные.

[evg_m]

при собеседовании я бы уточнил
1. Узнать тип значания в переменной типа variant VarIsNULL.....
2. определить допустимость значения в строковой переменной try ... except;

второй вариант больше согласуется с логикой языка PHP (хотя этого языка я и не знаю).

[Stilet]

Есть же для этого нормальные методы, даже в хелпе описаны

Ух ты как...
Ты все время будешь полагаться на работу с Вариантами? Не вздумай ляпнуть это когда на работу будешь устраиваться.