Problem beim Ermitteln der Zahl der Elemente einer Textdatei

[Gelmo]

Hallo zusammen!
Ich möchte feststellen, wieviele Elemente sich in einer Textdatei befinden.
Dazu habe ich durch einen Link in diesem Forum eine Formel gefunden, die ich für meine Zwecke so umformuliert habe:

Delphi-Quellcode:

var
SZF_Elemente : Byte;
AktDatei     : String;
...
AktDatei:=OpenDialog1.Filename;
... 
SZF_Elemente:=Ord(High(AktDatei))-Ord(Low(AktDatei))+1;
...

Wie ist dann zu erklären, dass als Ergebnis >>101<< angezeigt wird, wenn ich die Datei mit dem Editor öffne, aber 81 Zeilen zu zählen sind?
Die Datei enthält tatsächlich nichts als die Inhalte von 81 Sudoku-Kästchen, entweder die darin enthaltenen Ziffern oder eine Null bei leeren Kästchen.
Ich möchte aber für Zwischenergebnisse noch die Bytewerte für Stunden 😊, Minuten und Sekunden anhängen, die für eine Lösung bisher verstrichen sind. Um Fehler beim Auslesen der Dateien zu vermeiden, möchte ich die Länge vorher feststellen.
Hat da vielleicht jemand eine Idee, wie die Elementezahl zuverlässig bestimmt werden kann?
Dafür vielen Dank
MfG Gelmo

[zeras]

Kannst du mal erklären, was in der Datei stehen soll?
Wie sind die Daten getrennt?

[Gelmo]

Nun, die einzelnen Strings werden mittels writln in eine Textdatei geschrieben.

Delphi-Quellcode:

...
var
  sf : Textfile;
...
Assignfile(sf,AktDatei);
for ui:=1 to 81 do writln(Feldinhalt[ui]);
closefile(f);

[Dalai]

Der Code im OP oben agiert auf dem Dateinamen, nicht dem Inhalt. Fehlt da was, oder sieht der Code wirklich so aus? Wie wär's mit TStringList.LoadFromFile und einem nachfolgenden TStringList.Count?

Grüße
Dalai

[Gelmo]

Der Code funktioniert ohne Fehlermeldung, liefert aber ein falsches Ergebnis. Wenn ich AktDatei durch sf ersetze, erscheint die Fehlermeldung "Inkompatible Typen".
Ich werde mal die Lösung mit Stringlist versuchen; dann kann ich aber zahlreiche Dateien nicht einfach weiter verwenden.
Einfacher wäre es für mich jetzt, die Anzahl der Elemente einer Textdatei im Voraus feststellen zu können.
Jedenfalls herzlichen Dank!

[zeras]

Zitat von Gelmo:

Einfacher wäre es für mich jetzt, die Anzahl der Elemente einer Textdatei im Voraus feststellen zu können.

Wie oben beschrieben. In eine Stringlist landen und dann mit Count hast du dann die Zeilenanzahl (wenn es sich nur um Strings handelt)

[himitsu]

Wie schon gesagt, dein Code liefert das richtige Ergebnis, jedenfalls das, welches dein Code da produzieren soll.

= Anzahl der Zeichen (Chars) im Text


Wenn man deinen Code kürzt, dann kommt SZF_Elemente := {High} Length(AktDatei) - {Low} 1 + 1; dabei raus, also letztendlich SZF_Elemente := Length(AktDatei); ,
wobei "AktDatei" einfach nur der Text mit dem Dateinamen ist, also nicht der Dateiinhalt


Zum Schreiben und Lesen einfach eine TStringList
oder ein String-Array und dann TFile.ReadAllLines und TFile.WriteAllLines,
anstatt dieser "uralten" Pascalfunktionen.

[peterbelow]

Zitat von Gelmo:

Hallo zusammen!
Ich möchte feststellen, wieviele Elemente sich in einer Textdatei befinden.

Dann erzähl uns erstmal was Du unter "Element" verstehst. Zeichen, Zeilen, Worte, Paragraphen...

[Gelmo]

Hallo zusammen!
Zuerst einmal vielen Dank für den Hinweis auf TStringList. Damit konnte ich sofort die gewünschte Anzahl der Elemente, im dargestellten Fall also die Zahl der gespeicherten Textzeilen, ermitteln.
Die Vorteile von TStringList gegenüber dem Speichern von Textdateien Zeile für Zeile leuchten mir sofort ein. Ich habe tatsächlich mal mit Turbo-Pascal an einer Volkshochschule angefangen und programmiere seither gelegentlich als Autodidakt und Hobbyist weiter. Aber mit Unterstützung im Forum kann man ja immer noch dazu lernen.
Mein Beitrag kommt übrigens so spät, weil ich trotz vorheriger Anmeldung im Forum beim Abschicken eines früheren Textes mit der Meldung, ich müsse mich zuerst anmelden, „aus dem Verfahren“ geworfen worden bin.
Allen ein schönes Wochenende
MfG Gelmo