[DELPHI 7] Calcolo lunghezza di un file

[roby23]

Ciao a tutti. Ho un file ti testo dove riga per riga ho salvati degli utenti. Come posso fare per sapere a priori la lunghezza (in numero di righe) del file? In pratica vorrei sapere quanti utenti sono registrati.
Io l'ho risolto cosi

NumeroUtenti := 0 ;
While Not Eof ( FUtenti )
  Do Begin
       Readln ( FUtenti, Stringa ) ;
       NumeroUtenti:= NumeroUtenti + 1 ;
     End;

Ma volevo sapere se c'è un metodo più rapido

grazie a tutti in anticipo. Ciao

[gygabyte017]

non credo...
perchè in realtà se tu apri un file di testo con un Hex editor, scopri che "l'andata a capo" è rappresentata dai bytes 13 e 10.

Quindi un file tipo:

Riga1
Riga2
Riga3

In realtà è:

Riga1[13][10]Riga2[13][10]Riga3

Quindi le righe sono "fittizie" l'unico modo è quello che hai detto tu.

[roby23]

speravo ci fosse un altro modo. Grazie comunque

[alka]

E' possibile conoscere, in generale, la dimensione di un file.

Il tipo di "dimensione" a cui vuoi risalire tu, però, è un dato che necessita di esplorare i file per poter individuare i blocchi contenuti e delimitati dalla sequenza di ritorni a capo.

In un modo o nell'altro, devi esplorare i contenuti del file, caricandolo in una TStringList, ad esempio, oppure leggendo riga per riga così come hai fatto, oppure contando i caratteri di ritorno a capo e così via.

In alternativa, se sei tu a gestire il file personalizzato, potresti adottare questa soluzione: quando salvi il file, inserisci in testa, come primo dato, il numero di righe salvate in modo da poterlo rileggere successivamente.

Ciao!