StrTofloatDef

[Rustafa13]

здарова всем.

У меня такая задача, вообщем мне нужно ввести число в edit и если я ввиду буквы, чтобы мне ошибку выдало.
Как я понял это делается так

r:=strtoint(edit1.text,0);
showmessage(r +'ошибка');

ну мне нужно это как-то через цикл проверить. через IF. как можно сделать?
Спасибо.

[Rustafa13]

т.е. как-то так

if (strtofloatdef(edit1.Text,0)) or (strtofloatdef(edit2.text,0)) then
showmessage('ошибка')
else
................................... ...........................

[GetMax]

Так сойдет?

Var
   n,error:Integer;
Begin
   Val(Edit1.Text,N,Error);
   If Error <> 0 then ShowMessage('Ошибка')
End;

[Rustafa13]

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

Так сойдет?

Var
   n,error:Integer;
Begin
   Val(Edit1.Text,N,Error);
   If Error <> 0 then ShowMessage('Ошибка')
End;

нет, мы это не проходили еще.

[SERG1980]

var r:real;
......
r:=(strtofloatdef(edit1.Text,0));
if r = 0 then showmessage('ошибка')

[New man]

ага , ия ввел 0 и мне выскакивает ошибка
ghtlkfuf.

try 
  r:=strtoint(edit.text);
except ShowMessage('Ljk,jt,, ошибка yf[eq!')
end;

[Rustafa13]

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

var r:real;
......
r:=(strtofloatdef(edit1.Text,0));
if r = 0 then showmessage('ошибка')

неправильно. не работает. ошибку выдает все равно. Хотя учительница мне так говорила делать(ну или почти так). Кстати, я так уже пробовал.

[Rustafa13]

Сообщение от New man

ага , ия ввел 0 и мне выскакивает ошибка
ghtlkfuf.

try 
  r:=strtoint(edit.text);
except ShowMessage('Ljk,jt,, ошибка yf[eq!')
end;

мы только начали дельфи, не проходили еще.

[Rustafa13]

блин, почему когда я делаю так:
r:=(strtofloatdef(edit1.Text,0));
if r = 0 then showmessage('ошибка')

в моей программе выдает ошибку, а когда делаю в пустой программе и пишу только эти две строки, то все работает??!!!!

[Rustafa13]

ааа, все, всем спасибо, изменил. ошибка была в проверке!!!
а точнее в кол-ве бегинов и эндов, а если еще точнее, то энд ставил не туда.