Ich würde den String mit Copy() zerlegen - geht besser.
Delphi-Quellcode:
...
var VordereZahl, HintereZahl: string;
...
j := pos(':',input2);
if j <> 0 then begin
VordereZahl := Copy(input2,1,j); // Alles vor ":" kopieren
HintereZahl := Copy(input2,j+1,length(Input2)-j); // Alles nach ":" kopieren
end else begin
ShowMessage('Kein ":" gefunden!');
end;
(Vorsicht - Code wurde gerade on-the-fly von Brain 1.0 generiert! Evtl. mit den Copy-Parametern rumspielen)