Einzelnen Beitrag anzeigen

Methi

Registriert seit: 14. Okt 2004
10 Beiträge
 
#1

Mehrdym. Arrays und textdateien(csv)

  Alt 15. Okt 2004, 15:33
Hallo,
ich möchte eine Textdatei einlesen, die so aufgebaut ist:

1,2,3,4
6,7,8,9
...

das Array soltle dann folgendermaßen aussehen:
a[0,0] = 1
a[0,1] = 2
a[0,2] = 3
a[0,3] = 4

a[1,0] = 6
a[1,1] = 7
a[1,2] = 8
a[1,3] = 9

Also für jede zeile der "erste" Index, für jedes Element der Zeile der "zweite" Index.
Mein problem ist nur, dass ich nicht soviel erfahrung damit habe und alle meine versuche gescheitert sind. Hier ein versuch:

Delphi-Quellcode:
procedure TForm1.readDataIn();
var
  myArr : Array of Array of String;
  mastersl : TStringList;
  detailsl : TStringList;
  ndx , x : Integer;
begin
  mastersl := TStringList.Create; // Master StringList
  detailsl := TStringList.Create; // Detail StringList
  try
    detailsl.Delimiter := ','; // Trennzeichen der Einträge pro Zeile
    mastersl.LoadFromFile('band.txt');
    for ndx := 0 to Pred (mastersl.Count) do
    begin
      detailsl.Clear;
      detailsl.DelimitedText := mastersl.Strings[ndx];
      for x := 0 to Pred(detailsl.Count) do
      begin
       myArr[ndx,x] := detailsl.Strings[x];
      end;
    end;
  finally
    FreeAndNil (mastersl);
    FreeAndNil (detailsl);
  end;
end;
das hab ich mehr oder weniger alleine gemacht (tipps über irc erhalten...)
Funktioniert aber nicht!!!

ich hoffe jmd. kann mir helfen
Ich bin ein Teil von jener Kraft, die stets das Böse will und stets das Gute schafft!
  Mit Zitat antworten Zitat