String in 2 Strings aufteilen

[quendolineDD]

Schreib dir doch einfach eine kleine Funktion selber

Delphi-Quellcode:

procedure extractXY(s: string; var x: integer; var y: double);
begin
if pos(' ', s) <> 0 then
 begin
  x := StrToInt(copy(s, 0, pos(' ', s)-1));
  delete(s, 1, pos(' ', s));
  y := StrToFloat(copy(s, 0, length(s)));
 end;
end;

€: Delphi Schließen-TAG vergessen