Richtige Fallunterscheidung

[Zuckerberg]

Hallo Liebe Community,

nun komm ich zu einer Frage die ich mir oft stelle,
nämlich wie ich die richtige Fallunterscheidung mache damit mein Programm nicht abstürzt...

und zwar habe ich ein Edit und möchte mit dessen Inhalt weiter arbeiten,jedoch als Integer( strtoint, das ist nicht das Problem )

Das Problem ist:

1. wenn der Benutzer NICHTS eingibt, wie erkläre ich das dem Programm ?? mit if ... aber wie richtig also ich würde es so machen und es klappt nicht :

Delphi-Quellcode:

procedure TGUI.Button1Click(Sender:TObject);
begin
   if (Edit1.Text = '') then
   ShowMessage(Bitte geben sie eine Zahl ein !);
   // Gibts eig einen Befehl der die procedure anhählt oder beendet?
   // wäre an dieser eig angebracht also jetzt nicht bei so einen    
   // einfachen Beispiel, aber bei komplexeren angelegenheiten ...
   else
   ...
end;

2.Wenn der Benutzer keinen Integer eingibt sondern einen String ; oder beides gemischt also da würde ich folgendes tun:

Delphi-Quellcode:

procedure TGUI.Button1Click(Sender:TObject);
begin
   if (Edit1.Text = ???) then // hier bräuchte ich einen Tipp 
   ShowMessage(Bitte geben sie eine Zahl ein !);
   // Gibts eig einen Befehl der die procedure anhählt oder beendet?
   // wäre an dieser eig angebracht also jetzt nicht bei so einen    
   // einfachen Beispiel, aber bei komplexeren angelegenheiten ...
   else
   ...
end;

Danke für die Hilfe

Zuckerberg

[xZise]

Guck mal nach TryStrToInt. Weil dein Problem hat nicht so viel mit Fallunterscheidung zu tun, bzw. wenn man da nicht auf diese Methode zurückgreift, wird das schon etwas komplexer.

Übrigens, um eine Methode Anzuhalten kannst du Sleep() oder Delay verwenden.

MfG
Fabian

[nachti1505]

StrToInt mit try/except umgeben oder gleich TryStrToInt nutzen... alternativ lässt du im Edit nur Ziffern zu.

[generic]

Ich selbst arbeite gerne mit eigenen Exceptions und Schutzblöcken.
Abhängig von der Exception kannst du dann reagieren.

Du kannst damit natürlich z.b. strtoint nutzen um die Eingabe zu validieren, da die Exception gefangen wird.

[Teekeks]

Zitat von Zuckerberg:

Gibts eig einen Befehl der die procedure anhählt oder beendet?

Nennt sich exit; (aus der Procedure/Function rausspringen) oder auch break; (aus der aktuellen Schleife rausspringen)

[Luckie]

alternativ kann man die Oberfläche auch so gestalten, dass ein weiterarbeiten nur möglich ist, wenn die Eingabe korrekt ist. Also Schaltflächen nur aktivieren, wenn im Eingabefeld was drin steht oder so.

[Zuckerberg]

Danke erstmal

nur was macht TryStrtoInt genau ??
brauch ich dabei keine if Abfrage mehr ?

und wie kriegt man es hin das im Edit nur Zahlen zugelassen werden ?

[mkinzler]

Was der Name sagt: Es versucht einen String in einen Integer zu wandeln und gibt zurück, ob die Wandlung erfolgreich war

[DeddyH]

TryStrToInt (eine schöne Gelegenheit, die Delphi-Referenz einmal vorzustellen *g*)

[Luckie]

Frage eins: Delphi Hilfe. Frage zwei: Forensuche.