Как да се знае размера на текстовия файл в Делфи

SizeOf функция не се прилага за текстови файлове (текстов файл), но аз съм сигурен, че има начин да се знае размера на текстовия файл и да го (размер) отпечатва в Делфи в низ (String) форма.
Как да се знае размера на текстовия файл?

Това не е странно да изглежда, но FileSize (е текстов файл.);
Въпреки, че най-вероятно в избора imni разработчиците функционални грешат много, защото тя не се получи много интуитивен име! (:

Ето и още един трик, тогава какво. Тази функция мега-размер може да се намери не само текст, но и всеки друг файл. Основното нещо, което е параметър указател, за да отворите всеки тип файл.
VOT! (:

И, за да се приведе във вид, низ, има не-интуитивен функция inttostr ()

Universal функция за всички файлове.
Просто ukazyvansh файл и poluyaaesh теглото си в байта.

функционира GetFileSize (namefile: низ): цяло число;
Var
# XA0; InfoFile: TSearchRec;
# XA0; AttrFile: цяло число;
# XA0; ErrorReturn: цяло число;
започвам
# XA0; AttrFile: = $ 0000003F;
# XA0; ErrorReturn: = FindFirst (namefile, AttrFile, InfoFile);
# XA0; ако ErrorReturn <> 0 след това
# XA0; # XA0; Резултати: = -1
# XA0; останало
# XA0; # XA0; Резултат: = InfoFile.Size;
# XA0; FindClose (InfoFile);
приключи;

Функция GetFileSize (FName: String): Int64;
Var FS: TFileStream;
започвам
опитвам
FS: = TFileStream.Create (FName, fmOpenRead);
Резултат: = FS.Size;
накрая
FS.Free;
приключи;
приключи;

2 AndersoNRules
Един интересен вариант. И за какво?