String zerlegen und Teile in Integer umwandeln, AsyncPro

[H4ndy]

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)