Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c