Anzahl der Eintragungen in einer Datei ermitteln.

[Nikolas]

Ich will aus einer .dat Datei die Anzahl der gespeicherten Elemente auslesen. Da ich keine function dazu gefunden habe, habe ich's mit dieser Schleife versucht:

Delphi-Quellcode:

repeat
readln(Datei,muell);
inc(k);
until eof(Datei);

k müsste mir dann die Anzahl zurückgeben. Nur leider wird das eine Endlosschleife.
Kennt jemand eine passende function oder sieht den (Denk-)Fehler?

THXbyTOX

[MikeS]

wie lang ist denn deine .dat datei?

vielleicht dauert das einfach nur eine weile!
Mir fällt sonst nix auf, nutze die gleiche schleife wie du auch,
allerdings nur im zusammenhang mit textdateien!

[Nikolas]

Ich bin erst am Testen des ganzen Progs und da sind nur 8 Eintragungen in der Datei. Und wenn ich die Schleife weglasse und manuell im Quelltext k auf 8 setzte, wird alles sofort gelesen.

Toxman

[MikeS]

moin zusammen,

vielleicht liegt das dateiende auch viel weiter unten!? :?:

[Luckie]

Was ist ein Element? Handlet es sich um eine typisierte datei kannst du die Anzahl der datensätze mit FileSize bestimmen.:

Zitat:

Call FileSize to determine the size of the file specified by the file variable F. The size is expressed as the number of records in a record file. Thus:

If the file is declared as a file of byte, then the record size defaults to one byte, and FileSize returns the number of bytes in the file.
The Reset procedure can set the record size (in bytes) when it opens the file. In this case, FileSize returns the number of records in the file.

Note: If the file is declared as an untyped file and you don’t specify a record size when you call Reset, then FileSize assumes a record size of 128. That is, FileSize gives the number of bytes divided by 128.

To use FileSize, the file must be open. If the file is empty, FileSize(F) returns 0.

Note: FileSize can't be used on a text file.

[Ulf346C]

handelt es sicht um eine "richtige" Textdatei?
Wenn eine, sind die Ergebnisse wirklich unvorhersehbar,
da readln() erstens Zeilenende = chr(10) und dann
Textende = chr(26) erwartet