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.

[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.

[Zuckerberg]

entweder ich bin zu blöd oder es gibt bei trystrtoint einen hacken ...

also ich habe folgendes geschrieben bekomme aber eine Fehlermeldung:

Delphi-Quellcode:

if TryStrToInt(Edit1.Text) = False then //undefenierter Bezeichner trystrtoint
...

und wenn ich das schreibe kommt:

Delphi-Quellcode:

if Try(strtoint(Edit1.Text)) = false then // erwartet er ":="
...

[-Phantom-]

Zu den Zahlen:

Also ich weiß nicht genau ab welcher Version das dabei ist, aber ich kann in Delphi 2010 die Einstellung einstellen "NumbersOnly", diese Funktion würde auch dein anders Problem lösen, denn man kann nicht "nichts" eingeben ( also mehrere Leerzeichen hintereinander ). Und weil man dann höchstens nur ein Leerzeichen eingeben kann, kann man die Abfrage benutzen:

Delphi-Quellcode:

if edit1.text = '' then
showmessage('Bitte eine Zahl eingeben')

// In Delphi 7 ist es noch nicht dabei.
// Habe nicht gelesen das er Delphi 5 Benutz -.- aber egal. Für die anderen ^^