Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];
Вниз
Работа над ошибками? Найти похожие ветки
← →
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)
Думаю, именно в этом и проблема %)
← →
menart © (2004-08-13 08:34) [6]Скомпилируешь будет токо твое сообщение
← →
TUser © (2004-08-13 08:47) [7]Или так
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;
← →
icWasya © (2004-08-13 11:40) [8]Val + F1 ??
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c
