Split-Funktion in Delpi???

[sakura]

da habe ich zwei Zeilen Code unterschlagen

Code:

function Split(InStr, SplitAt: String): TStringArray; 
var 
  I, L: Integer; 
begin 
  SetLength(Result, 0); 
  if InStr = '' then 
    Exit; 
  I := Pos(SplitAt, InStr); 
  L := Length(SplitAt); 
  while I > 0 do 
  begin 
    SetLength(Result, Succ(Length(Result))); 
    Result[High(Result)] := Copy(InStr, 1, Pred(I)); 
    Delete(InStr, 1, Pred(I + L)); 
    I := Pos(SplitAt, InStr); 
  end; 
[color=#ff0009]  SetLength(Result, Succ(Length(Result))); 
  Result[High(Result)] := InStr; [/color]
end;

......