Vielen Dank auch für den Hinweis. Ich habe mögliche Fehleingaben jetzt abgefangen. Dabei reagiere ich sowohl auf falsche Zahl- als auch auf Buchstabeneingaben.
Hier mein Code:
Delphi-Quellcode:
try
x:= StrToInt(Anlage[1]);
case x of
1..3: FMain.Anlage:=x;
else
//Wenn nicht, gib Meldung aus und starte mit 1:
Application.MessageBox('Falscher Paramter!'
+ #13 + 'Gültige Parameter: 1, 2 oder 3!'
+ #13 + 'Es wird mit Parameter 1 gestartet!','Problem',16);
FMain.Anlage:=1
end;
//Wenn keine (gueltige) Zahl, gib Meldung aus und starte mit 1:
except
Application.MessageBox('Falscher Paramter!'
+ #13 + 'Gültige Parameter: 1, 2 oder 3!'
+ #13 + 'Es wird mit Parameter 1 gestartet!','Problem',16);
FMain.Anlage:=1;
Gruß an alle.
Schöne Ostertage
Florian