string an bestimmtem Zeichen teilen

[ulhau]

Hi,

Nur so als Beispiel:

function ExtractLeftString(DatenStr, MiddelChar: String): String;
var
ErstPos, LetztPos, Count: Integer;
begin
ErstPos := 1;
LetztPos := Pos(MiddelChar, DatenStr);
Count := LetztPos - 1;
ExtractLeftString := Copy(DatenStr, 1, Count);
end;

function ExtractRightString(DatenStr, MiddelChar: String): String;
var
ErstPos, LetztPos, Count: Integer;
begin
ErstPos := Pos(MiddelChar, DatenStr) + 1;
LetztPos := Length(DatenStr);
Count := LetztPos - ErstPos;
ExtractRightString := Copy(DatenStr, ErstPos, Count + 1);
end;

Str1 := ExtractLeftString(DStr, '|');
Str2 := ExtractRightString(DStr, '|');

Ja probier halt mal.

Tschüsss !