TSTRINGLIST in ein Array kopieren

[p80286]

Zitat von gallstone:

dennoch erschließt sich mir nicht wie ich dann zum beispiel das feld [5,10] aufrufen soll.

darum ist es bisher ja auch nicht gegangen.
Du wolltest den inhalt einer Stringliste (Datei) in ein Array übertragen.
Da sind die Daten jetzt.

Und so kannst Du auf die Inhalte zugreifen: z.B.
Showmessage(myarray[5,10]; Gruß
K-H

[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

[DeddyH]

DelimitedText hättest Du aber ganz bequem nachlesen können

[Bjoerk]

Statt SL.Strings[I] kann man einfach SL[I] schreiben und Strings beginnen in Delphi mit 1, also Copy (Auswahl, 1, ..) .