Pos() und Copy() bzw. delete() haben mir geholfen
Du kannst auch auf fertige Funktionen zurückgreifen wie z.B.
http://www.delphipraxis.net/26055-st...fsplitten.html
Bei zwei Wörtern mit einem Trennzeichen lohnt sich das vielleicht nicht so ganz aber wenn du ein ähnliches Problem hast brauchst du nicht wieder bei Adam & Eva anfangen sondern kannst darauf zurückgreifen.
Sehr nützlich ist auch diese einfache Funktion:
Delphi-Quellcode:
function StrToken(var S: string; Separator: Char): string; // kopiert aus der JCL
var
I: Integer;
begin
I := Pos(Separator, S);
if I <> 0 then
begin
Result := Copy(S, 1, I - 1);
Delete(S, 1, I);
end
else
begin
Result := S;
S := '';
end;
end;
// Beispiel
var
s, t : string;
begin
s := ' Wort1 - Wort2 - Wort3';
t := StrToken(s, '-'); // splitten
t := Trim(t); // Leerzeichen weg
ShowMessage(t); // "Wort1"
t := Trim(StrToken(s, '-')); // splitten & Leerzeichen weg
ShowMessage(t); // "Wort2"
t := Trim(StrToken(s, '-')); // splitten & Leerzeichen weg
ShowMessage(t); // "Wort3"