[Delphi]SplitString Klasse

03/16/2011 22:24 .Infinite#1
Sorry für die dumme Frage, aber ich finde in Delphi einfach nicht die Klasse in der die Funktion SplitString() deklariert ist... "Classes" ist es nicht.
03/16/2011 22:46 .Infinite#2
Habs selbst gefunden... War anscheinend doch schon zu spät zum fragen. Wen es interessiert, ich hab diese Funktion im Internet gefunden

PHP Code:
function TXXXXXXXXX.SplitString(const aSeparator, aString: String; aMax: Integer = 0): TArrayOfString;
  var
    i, strt, cnt: Integer;
    sepLen: Integer;
    procedure AddString(aEnd: Integer = -1);
    var
      endPos: Integer;
    begin
      if (aEnd = -1) then
        endPos := i
      else
        endPos := aEnd + 1;
      if (strt < endPos) then
        result[cnt] := Copy(aString, strt, endPos - strt)
      else
        result[cnt] := '';
      Inc(cnt);
    end;
  begin
    if (aString = '') or (aMax < 0) then
    begin
      SetLength(result, 0);
      EXIT;
    end;
    if (aSeparator = '') then
    begin
      SetLength(result, 1);
      result[0] := aString;
      EXIT;
    end;
    sepLen := Length(aSeparator);
    SetLength(result, (Length(aString) div sepLen) + 1);
    i     := 1;
    strt  := i;
    cnt   := 0;
    while (i <= (Length(aString)- sepLen + 1)) do
    begin
      if (aString[i] = aSeparator[1]) then
        if (Copy(aString, i, sepLen) = aSeparator) then
        begin
          AddString;
          if (cnt = aMax) then
          begin
            SetLength(result, cnt);
            EXIT;
          end;
          Inc(i, sepLen - 1);
          strt := i + 1;
        end;
      Inc(i);
    end;
    AddString(Length(aString));
    SetLength(result, cnt);
  end;