Prozedur bei falscher Eingabe anhalten

[shmia]

Warum keine Exceptions verwenden ??

Delphi-Quellcode:

if Zahl[i]=Zahl[j] then 
   raise Exceptions.Create('Gleiche Zahlen, bitte ändern');

Wenn man die Eingaben validieren muss kann man sogar noch zusätzlichen Komfort für den Benutzer einbringen:

Delphi-Quellcode:

if StrToIntDef(EditAnzahl.Text, 0) < 1 then
begin
  EditAnzahl.SetFocus; // auf das fehlerhafte Eingabefeld "springen"
  raise Exception.Create('Anzahl muss >= 1 sein');