String in 2 Strings aufteilen

[marabu]

Hallo,

hier noch ein Ansatz aus den guten alten Tagen:

Delphi-Quellcode:

procedure ExtractXY(const s: string; var x: Integer; var y: Double);
var
  i: Integer;
begin
  Val(s, x, i);
  Val(Copy(s, Succ(i), MaxInt), y, i);
end;

Grüße vom marabu