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');