Zitat von
aaaaaaaaaa_10:
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
Erstens fehlt da ein Ressourcenschutzblock (try..finally), was machst du bei einer
Exception in dem Bereich?
Zweitens: Du erzeugst Sek neu. Meinst du, dass Sek.Count etwas anderes als 0 sein kann direkt danach? Was wird also Sek.Strings[Sek.Count-1] sein... (usw.)