AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Mehrdym. Arrays und textdateien(csv)

Ein Thema von Methi · begonnen am 15. Okt 2004 · letzter Beitrag vom 15. Okt 2004
 
Methi

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

Mehrdym. Arrays und textdateien(csv)

  Alt 15. Okt 2004, 14: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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:42 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz