TSTRINGLIST in ein Array kopieren

[gallstone]

Zitat von DeddyH:

Markus' Code musst Du je Zeile ausführen, dann sind die einzelnen tab-getrennten Felder die Items der Stringliste.

ich rall das dennoch nicht.

du sagst also für jede zeile:

Code:

procedure DateiEinlesen(Dateiname:string);
  var sl: TStringList;
      s:string;
      i:integer;
  begin
  sl:=TStringList.Create; //Objekt erzeugen


  try
    sl.LoadFromFile(dateiname);  //Datei in Stringliste laden
  finally
    form1.richedit1.Text:=sl.Text;

    for i:=0 to sl.Count-1 do
      Begin
        sl.Delimiter:=#9;
      end;
    sl.free; //Objekt wieder freigeben
  end;

end;

So?