Stringlist - count

Für Fragen von Einsteigern und Programmieranfängern...
Antworten
catweasel
Beiträge: 230
Registriert: Di 17. Mär 2009, 10:51
OS, Lazarus, FPC: Win10 64Bit // Linux Mint 20.0 - (L 2.2.0 FPC 3.2.2)

Stringlist - count

Beitrag von catweasel »

Moin

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; 

mschnell
Beiträge: 3444
Registriert: Mo 11. Sep 2006, 10:24
OS, Lazarus, FPC: svn (Window32, Linux x64, Linux ARM (QNAP) (cross+nativ)
CPU-Target: X32 / X64 / ARMv5
Wohnort: Krefeld

Re: Stringlist - count

Beitrag von mschnell »

nach free darfst Du auf "Daten" natürlich nicht mehr zugreifen :D

-Michael

catweasel
Beiträge: 230
Registriert: Di 17. Mär 2009, 10:51
OS, Lazarus, FPC: Win10 64Bit // Linux Mint 20.0 - (L 2.2.0 FPC 3.2.2)

Re: Stringlist - count

Beitrag von catweasel »

mschnell hat geschrieben:nach free darfst Du auf "Daten" natürlich nicht mehr zugreifen :D

-Michael
Autsch, das habe ich übersehen :oops:

Danke für den Tip

Antworten