Файл текстового типа (textfile). Как узнать его размер ?

← →
Виноградов Алексей (2004-05-25 17:53) [0]

Спасибо ...

← →
GuAV © (2004-05-25 21:01) [1]

GetFileSize(TTextRec(... ).Handle, ...)

← →
Mameluke © (2004-05-25 21:04) [2]

Размер в байтах или количество строк? Для первого существует функция FileSize (подробнее см. help файл Delphi), для второго можно организовать цикл по while not(EOF(F)) (F - файловая переменная) с использованием ReadLn и переменной-счетчиком.

← →
Vit@ly © (2004-05-25 21:21) [3]

А можно просто
FileSize(f);
независимо от типа файла

← →
GuAV © (2004-05-25 21:35) [4]

[2], [3]
FileSize - для Текстового вернёт не в байтах не в строках а в кусках по 128...

← →
Германн © (2004-05-26 02:00) [5]

2 GuAV © (25.05.04 21:35) [4]
FileSize - для Текстового вернёт не в байтах не в строках а в кусках по 128...

А это смотря как открывать сей файл!
см. Хэлп -
Note: FileSize can"t be used on a text file.

> А это смотря как открывать сей файл!

По условию textfile. Или вы о другом?

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

Ну да, FileSize не работает, а так вроде работает:

> GetFileSize(TTextRec(... ).Handle, ...)

← →
BFG9k (2004-06-03 15:04) [7]

Забудьте вы вообще о текстовых файлах. Это атавизм паскаля. Делается так.

var Str:TStrings;
begin
Str:=TStringList.Create;
Str.LoadFromFile("...");
...
//доступ ко всему файлу в виде одной строки
//(не бойтесь, динамическая строка - до 2 ГБ)
...:=Str.Text;
//или по строкам
...:=Str[i];
...
Str.Free;

end;

сказать, что файл не текстовый и
> FileSize

Файл текстового типа (textfile). Как узнать его размер ? Найти похожие ветки