TSTRINGLIST in ein Array kopieren

[gallstone]

Hi,

also da ich gern verstehe was ich mache, habe ich mir das nun doch selbst gebastelt. Hier seid einfach zu Pro :

Code:

var
  Feld : array of array of string;

procedure DateiEinlesen(Dateiname:string);

var sl: TStringList;
    auswahl:string;
    stelle,i,k:integer;
begin
  sl:=TStringList.Create; //Objekt erzeugen
  try
    sl.LoadFromFile(dateiname);  //Datei in Stringliste laden
  finally
  setlength(feld,sl.Count,30);
    i:=0;  //Zähler für Zeilen
    k:=0;  //Zähler für Spalten
  while i<=sl.Count-1 do      //abarbeiten Zeilen
    begin
      k:=0;
      auswahl:=sl.Strings[i];                    //i-te Zeile in Zwischenstring Auswahl laden
        while k<=29 do                           //abarbeiten Spalten
          begin
            stelle:=pos(#9,auswahl);             //wenn TAB gefunden = neue Spalte (Stelle=TabPosition)
            feld[i,k]:=copy(auswahl,0,stelle-1); //eintragen in das Array
            auswahl:=copy(auswahl,stelle+1,length(auswahl)); //string wird um eingetragenes gekürzt
            k:=k+1;
          end;
      i:=i+1;
    end;
  form1.RichEdit1.Clear;                          
//Wiedergabe Array in RichEdit, zu Testzwecken
  i:=0;
  while i<=sl.Count-1 do
    begin
    k:=0;
      while k<=29 do
        begin
          form1.RichEdit1.Text:=form1.RichEdit1.Text+#9+feld[i,k];
          k:=k+1;
        end;
      form1.RichEdit1.Lines.Add(' ');
      i:=i+1;
    end;
  sl.free; //Objekt wieder freigeben
  end;
end;

Danke euch vielmals für eure Bemühungen, werde sicher wieder gern auf euch zurückkommen