String in 2 Strings aufteilen

[Popov]

Zufällig habe ich zwei Funktionen die das erledigen:

Delphi-Quellcode:

function GetText1(Str: String; CharD: Char): String;
begin
  Result := Copy(Str, 1, Pos(CharD, Str) - 1);
end;

function GetText2(Str: String; CharD: Char): String;
begin
  Result := Copy(Str, Pos(CharD, Str) + 1, Length(Str));
end;

Die erste Funktion liefert alles vor den Trennzeichen, die zweite Funktion alles nach dem Trennzeichen.

Delphi-Quellcode:

Text1 := GetText1('2 0.5', ' ');
Text2 := GetText2('2 0.5', ' ');

Den Rest mit StrToFloat konvertieren.

[Schmile]

besten dank an Popov!

das ist genau das, was ich gesucht habe :wink: :thumb: