Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

icWasya (2004-08-13 11:40:00) [1]
Val + F1 ??

TUser (2004-08-13 08:47:00) [2]
Или так
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;

menart (2004-08-13 08:34:00) [3]
Скомпилируешь будет токо твое сообщение

Frozzen (2004-08-13 08:22:00) [4]
try
.....
except on E:Exception do begin
ShowMessage('Твой текст');
end; end;

Skyle (2004-08-13 08:22:00) [5]

> [2] SASH2 (13.08.04 08:18)

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

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

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

Думкин (2004-08-13 08:20:00) [6]

> [2] SASH2 (13.08.04 08:18)

В IDE или где?

SASH2 (2004-08-13 08:18:00) [7]
Работает! Но выводит начала сообщение об ошибке процесса, а потом уже это сообщение. А вот как сделать, чтоб выводилось только мое сообщение об ошибке?

Goffman (2004-08-13 07:52:00) [8]
На OnChange делать проверку содержимого
try StrToFloat(Edit1.Text) except ShowMessage('Error') end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »