Cum să știu dimensiunea fișierului text în delphi

Cum să știu dimensiunea fișierului text în Delphi

caracteristică sizeof nu se aplică în fișiere text (Textfile), dar sunt sigur că există o modalitate de a cunoaște dimensiunea fișierului text și imprimați-l (dimensiune) în Delphi într-o formă de șir de caractere (String).
Cum să știu dimensiunea fișierului text?

Nu este ciudat pare, dar FILESIZE (f Textfile.);
Cu toate că, probabil, în alegerea dezvoltatorilor de funcții imni foarte greșită, pentru că nu obține un nume foarte intuitiv! (:

Și aici e un alt truc, atunci ce. Această funcție mega-dimensiuni pot fi găsite nu numai text, ci și orice alt fișier. Principalul lucru pe care a fost un parametru indicator pentru a deschide orice tip de fișier.
Comunicati! (:

Și pentru a aduce într-o formă de șir de caractere, există nu-intuitiv inttostr funcția ()

Funcția universală pentru toate fișierele.
Doar fișier ukazyvansh și poluyaaesh greutatea sa în octeți.

funcționa GetFileSize (namefile: string): Integer;
var
# XA0; InfoFile: TSearchRec;
# XA0; AttrFile: Integer;
# XA0; ErrorReturn: Integer;
începe
# XA0; AttrFile: = $ 0000003F;
# XA0; ErrorReturn: = FindFirst (namefile, AttrFile, InfoFile);
# XA0; dacă ErrorReturn <> 0 atunci
# XA0; # XA0; Rezultat: = -1
# XA0; altcineva
# XA0; # XA0; Rezultat: = InfoFile.Size;
# XA0; FindClose (InfoFile);
se încheie;

Funcția GetFileSize (fname: String): Int64;
var FS: TFileStream;
începe
încerca
FS: = TFileStream.Create (fname, fmOpenRead);
Rezultat: = FS.Size;
în cele din urmă
FS.Free;
se încheie;
se încheie;

2 AndersoNRules
O variantă interesantă. Și pentru ce?