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:

markieren

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

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

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

markieren

Delphi-Quellcode:

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

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

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!

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)

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.

Hallo,
um es noch einmal zu sagen.

Dein Code hat nichts mit dem Inhalt der Datei zu tun.
Nimm mal die gleiche Datei und häng an den Dateinamen ein Zeichen an.

Das Ergebnis wäre dann wohl 102.

Zitat von himitsu:

Zum Schreiben und Lesen einfach eine TStringList

kann ich auch nur hinempfehlen. stampf diesen dinosaurier quelltext ein und willkommen im jetzt.

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...