Работа над ошибками?

← →
SASH2 (2004-08-13 07:41) [0]

Добрый день всем!
[color=red][SIZE=3][b]Вопрос:[/b][/SIZE][/color]
На форме лежит компонент Edit1 в него пользователь вводит числа, например: 23.223, 455.5676 и т. п. Подскажите пожалуйста, как сделать проверку на ошибки если, например, пользователь по ошибке вводит вот так:23ю456 или 23,456 или вообще вместо циферий вводит текст("erete")???

← →
Goffman © (2004-08-13 07:52) [1]

На OnChange делать проверку содержимого
try StrToFloat(Edit1.Text) except ShowMessage("Error") end;

← →
SASH2 (2004-08-13 08:18) [2]

Работает! Но выводит начала сообщение об ошибке процесса, а потом уже это сообщение. А вот как сделать, чтоб выводилось только мое сообщение об ошибке?

← →
Думкин © (2004-08-13 08:20) [3]

> [2] SASH2 (13.08.04 08:18)

В IDE или где?

← →
Frozzen (2004-08-13 08:22) [4]

try
.....
except on E:Exception do begin
ShowMessage("Твой текст");
end; end;

← →
Skyle © (2004-08-13 08:22) [5]

> [2] SASH2 (13.08.04 08:18)

Отключи в настройках дельфи Stop On Delphi Exceptions.

> [3] Думкин © (13.08.04 08:20)

Думаю, именно в этом и проблема %)

Скомпилируешь будет токо твое сообщение

Или так
state:=false;
result:=true;
i:=1;
while result and (i < length(Edit1.Text)) do begin
if (Edit1.Text[i] = "-") and
(i > 1) then
result:=false
else
if (Edit1.Text[i] = DecimalSeparator) // = "." or ","
then begin
state:=not state;
result:=state;
end else
if not (Edit1.Text[i] in ["0".."9"])
then result:=false;
inc (i);
end;

Val + F1 ??

Работа над ошибками? Найти похожие ветки