Probleme mit tStrings und Strings im Memofeld

[chrizke]

also hier ist die Zeile die den Fehler:

Delphi-Quellcode:

     Zeile := mAnzeige.lines.strings[i];
     Zeilenarray:=Split(Zeile, ';');

So Split ist wie folgt deklariert:

Der Interface Teil:

Delphi-Quellcode:

type
  TStringArray = array of String;

  function Split(strring, trennzeichen: String): TStringArray;

Der Implementation Teil:

Delphi-Quellcode:

function Split(strring, trennzeichen: String): TStringArray;
var
  I, L: Integer;
begin
  SetLength(Result, 0);
  if strring = '' then
    Exit;
  I := Pos(trennzeichen, strring);
  L := Length(trennzeichen);
  while I > 0 do
  begin
    Result[High(Result)] := copy (strring,1,I-1);
    delete(strring,1,I);
  end;

Ich brauche das Array als Result, nur nen String bringt nichts!