String anhand eines Zeichens trennen

[ThE_-_BliZZarD]

danke für die schnelle antwort, ich habe jetzt durch den Link zu explode noch was gefunden, nähmlich das hier:

Delphi-Quellcode:

// Explode trennt S in die durch Separator getrennten Elemente auf. Wenn Limit
// > 0 ist, so werden max. Limit Elemente getrennt, wobei im letzen Element
// die Restzeichenkette steht.

function Explode(const Separator, S: string; Limit: Integer = 0): TStringDynArray;
var
  SepLen: Integer;
  F, P: PChar;
  ALen, Index: Integer;
begin
  SetLength(Result, 0);
  if (S = '') or (Limit < 0) then Exit;
  if Separator = '' then
  begin
    SetLength(Result, 1);
    Result[0] := S;
    Exit;
  end;
  SepLen := Length(Separator);
  ALen := Limit;
  SetLength(Result, ALen);

  Index := 0;
  P := PChar(S);
  while P^ <> #0 do
  begin
    F := P;
    P := AnsiStrPos(P, PChar(Separator));
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then P := StrEnd(F);
    if Index >= ALen then
    begin
      Inc(ALen, 5);
      SetLength(Result, ALen);
    end;
    SetString(Result[Index], F, P - F);
    Inc(Index);
    if P^ <> #0 then Inc(P, SepLen);
  end;
  if Index < ALen then SetLength(Result, Index);
end;

Allerdings habe ich damit noch ein Problem, nämlich das ich eine Fehlermeldung bekomme, das der Typ TStringDynArray undefiniert sei. Als Hilfe stand noch unter dem Post das man
das hier definieren sollte:

type TSTringdynarray = array of String; Allerdings weiß ich nicht so genau wo das hin muss, bin leider noch recht neu in der Sprache,
nochmal DANKE für die Hilfe!