falsche Eingaben abfedern

[algo05]

Hallo ihr, hab ne absolute Anfängerfrage:

Ich möchte gern, dass bei Eingaben die nicht vom Typ Integer sind, eine Fehlerbehandlung durch Nochmaleingabe erfolgt:

try
a:=StrToInt(eingabe_a.text);
except
eingabe_a.text:=IntToStr(a);
eingabe_a.SetFocus
end;

Warum klappt das nicht?

Danke für die Mühe.

Algo

[Torpedo]

Probiers mal mit:

Delphi-Quellcode:

try
a:=StrToInt(eingabe_a.text);
except
Application.MessangeBox('Die Eingabe ist ungültig.','Fehler',16);
Exit;
end;

[Sprint]

Zitat:

Zitat von algo05

Ich möchte gern, dass bei Eingaben die nicht vom Typ Integer sind, eine Fehlerbehandlung durch Nochmaleingabe erfolgt

Delphi-Quellcode:

  if not TryStrToInt(eingabe_a.Text, a) then
    eingabe_a.SetFocus;

[algo05]

@ sprint, danke für die Antwort,

aber klappt nicht weil StrToInt nur einen Parameter haben darf

algo

[Ultimator]

Er schrieb auch TryStrtoInt ;-)

[edit] Erster :-P :mrgreen: [/edit]

[phXql]

da steht ja auch nich StrToInt, sondern TryStrToInt

// edit: verdammt, zu lahm ;)

[Die Muhkuh]

Hi algo05,


du musst auch TryStrToInt nehmen und nicht nur StrToInt ;)

[edit] Meine Fresse :roll: Jahre zu spät [/edit]
[edit2] Auch noch mit dem Edit als letzter :cry: [/edit2]

[Sprint]

Zitat:

Zitat von algo05

aber klappt nicht weil StrToInt nur einen Parameter haben darf

Siehst du irgendwo in meinem Posting das ich die Funktion StrToInt benutzt habe? Ich nicht. Weil ich TryStrToInt genommen habe.

[semo]

ich habe mir folgende kleine methode zusammengebastelt:

Code:

procedure TForm.EditOnExit(Sender: TObject);
var
  value: Double;
  code: Integer;
begin
  try
    Val(TEdit(Sender).Text, value, code);
    if code <> 0 then
      raise EInvalidArgument.Create('Sie haben einen falschen Wert angegeben!');
    TEdit(Sender).Color := clWhite;
  except
    TEdit(Sender).Color := clRed;
    TEdit(Sender).SetFocus;
  end;
end;

Der Anwender wird wird bei einer Falscheingabe gezwungen
einen richtigen Wert einzugeben, bevor er im Programm weiter arbeiten kann.
Kenntlich wird das ganze durch die Rotmarkierung des Edits gemacht.

[algo05]

danke für die antworten, ok mein fehler, habe es jetzt korrigiert auf TryStrToInt
der Compiler sagt jetzt aber undeclared identifier bei TryStrToInt ?????


Algo