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!