Ich habe hier ein Problem das ich nicht verstehe:
Ich will eine Textdatei mit Stringlist einlesen. Sobald ich aber einfach nur mit "i:=Daten.Count" die Anzahl der Zeilen feststellen will
bricht das Programm mit SIGSEF ab.
Count ist doch vom Typ ein Integer! Und wenn ich den Wert einer Integer-Variable zuweisen will sollte das doch keine Probleme machen?!
Das passiert auch bei kleinen Dateien nur nur wenigen Zeilen, also kann es nicht das der Dateigröße liegen.
Gruß
Michael
Code: Alles auswählen
function TForm1.ReadCSV(fName: String): String;
var
Daten: TStringList;
i:integer;
begin
Daten := TStringList.Create;
try
Daten.LoadFromFile(fName);
Result := Daten.Text;
finally
Daten.Free
end;
i:=Daten.Count; // << Abbruch wenn die Zeile drin ist.
end;