Danke, funktioniert schon ganz gut, hab nur die Schreibfehler ausgesbessert.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
c : Char;
s : string;
begin
s := Edit1.Text;
if StrToIntDef(RightStr(s,1),99) = 99 then
begin
// Letztes Zeichen ist ein Buchstabe
c := RightStr(s,1)[1];
i := strtoint(LeftStr(s,length(s)-1));
end
else
begin
i := strtoint(s);
c := #13; // Default
end;
ShowMessage('i= '+IntToStr(i)+', c= '+c); // nur zur Anzeige
end;
Dann soll der Benutzer entweder nur eine Zahl oder eine Zahl gefolgt von einem Buchstaben in das Edit-Feld eingeben können.
Beispiel:
123a
1003f
245
Wie kann ich dann Fehleingaben abfangen?