Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

[Delphi6]integer or not integer?

Здравствуйте!
Как узнать что в edit1.text - числа(integer) или текст(string)?

Ответить   Wed, 5 May 2004 14:27:54 +0300 (#139294)

 

Ответы:

в 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

Ответить   Wed, 05 May 2004 16:54:40 +0400 (#139476)

 

Hello, keel.

Ну нафлудил...
Так вот,

Fuction IsInteger: Boolean;
Var
I: Integer;
Begin
Try
I := IntToStr(Edit1.Text);
Result := True;
Except
Result := False;
End;
End;

Есть и более красивые решения, но это ИМХО, самое простое в
реализации. Вообще я бы переписал функцию IntToStr(), если не было бы
лень :)

<<-------------------------------------------------------------->>
Подсунь свою мечту врагам - они погибнут при ее реализации

Ответить   "B." Wed, 5 May 2004 18:37:34 +0400 (#139484)