Типы данных

[DR.XXX]

Здравствуйте всем!

У меня вопрос: как определить тип данных вводимого значения. Например, есть Tedit и TButton. После ввода значения в поле Edit и после нажатия на кнопку button чтобы выходило сообщение:"Тип - реал"(если тип реал) или "Тип - integer"(если тип integer).


Спасибо!

[Finch]

DR.XXX, Ты с контрола получаеш string. Попробуй ее преобразовать в другие типы. Если получаеш по рукам от конверторов, значит это не твой тип.

[DR.XXX]

ээээ, стыдно признаться но ничего не понял(((

[zubr]

DR.XXX, в Delphi есть глобальные функции StrToIntDef, StrToFloatDef, где в случае ошибки (то есть строка не соответствует типу) функция возвращает значение равное параметру Default. Вызвал последовательно данные функции - там где Default не вернулся- значит соответствующий тип.

[DR.XXX]

Спасибо. Хоть теперь примерно знаю о чем речь.

Вот так пробовал, что то не хочет работать:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
   b: Integer;
begin
  b:= StrToIntDef( Edit1.Text, -1);
   If b=-1 then
      showmessage('Ошибка!');
end;

[Finch]

А что не хочет работать?