Also ich versuche es jetzt mit nem Array
Delphi-Quellcode:
var StringArray: array of array of string;
Zeilenanzahl, Spaltenanzahl : integer
und dem Code :
Delphi-Quellcode:
ZwSpeicher := TStringList.Create;
Sek := TStringList.Create;
begin
ZwSpeicher.Delimiter := #9;
ZwSpeicher.DelimitedText := Sek.Strings[Sek.Count-1]; //um die Spaltenanzahl zu bestimmen
Spaltenanzahl := ZwSpeicher.Count;
Zeilenanzahl := Sek.Count; //für die Zeilenanzahl
Setlength(StringArray,Spaltenanzahl,Zeilenanzahl);
for s := 0 to Spaltenanzahl-1 do // jetzt möchte ich die Werte der Zeilen ins Array schreiben
begin
StringArray[s,0] := ZwSpeicher.Strings[s];
end;
end;
Allerdings möchte ich den Header aus der Sek StringList gar nicht erst als DelimitedText im ZwSpeicher haben. Wie umgehe ich das?