Thema: Delphi StrToInt funzt nicht!

Einzelnen Beitrag anzeigen

Flons

Registriert seit: 7. Feb 2005
7 Beiträge
 
#9

Re: StrToInt funzt nicht!

  Alt 22. Mär 2005, 13:08
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
  Mit Zitat antworten Zitat