String zerlegen und Teile in Integer umwandeln, AsyncPro

[TeronG]

Zitat von H4ndy:

Ich würde den String mit Copy() zerlegen - geht besser.

  VordereZahl := Copy(input2,1,j); // Alles vor ":" kopieren

lieber j-1 ... oder?

  VordereZahl := Copy(input2,1,j-1); // Alles vor ":" kopieren ach ja ... ich hatte das mir zusammengebastelt ...

Delphi-Quellcode:

j := pos(':',input2);
for i := 1 to j-1 do zahl1 := zahl1+input2[i];
for i := j+1 to Length(input2) do zahl2 := zahl2+input2[i];

aber Copy ist schon n stück feiner!