[Delphi6]integer or not integer?

Здравствуйте!
Как узнать что в edit1.text - числа(integer) или текст(string)?
← Май 2004 → | ||||||
7
|
||||||
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Здравствуйте!
Как узнать что в edit1.text - числа(integer) или текст(string)?
Hello, keel.
Ну нафлудил...
Так вот,
Fuction IsInteger: Boolean;
Var
I: Integer;
Begin
Try
I := IntToStr(Edit1.Text);
Result := True;
Except
Result := False;
End;
End;
Есть и более красивые решения, но это ИМХО, самое простое в
реализации. Вообще я бы переписал функцию IntToStr(), если не было бы
лень :)
<<-------------------------------------------------------------->>
Подсунь свою мечту врагам - они погибнут при ее реализации
в edit1.text всегда текст...:)
i:=StrToIntDef(edit1.text,-1);
if i=-1 then showmessage('error');
On Wed, 5 May 2004 14:27:54 +0300
keel <dima***@s*****.by> wrote:
Номер выпуска : 2992
Возраст листа : 226 (дней)
Количество подписчиков : 395
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/139476
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru