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 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 [/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 Jahre zu spät [/edit]
[edit2] Auch noch mit dem Edit als letzter [/edit2]

[Sprint]

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