[Sanek_ntsk]

Как проверить пуст ли текстовый файл?

[Winny]

Мне удобней работать с TStringList, чем с TextFile:

Код:

var
S:TStringList;
begin
S:=TStringList.Create;
S.LoadFromFile('1.txt');
if S.Text='' then begin
ShowMessage('Текстовый файл пуст!');
end;
S.Free;
end;

[Sanek_ntsk]

кстати. расскажите пожалста чем TStringList лучше TextFile и наоборот.

[Ozerich]

Сообщение от Sanek_ntsk

кстати. расскажите пожалста чем TStringList лучше TextFile и наоборот.

он разбивает файл на строки

[zip000]

Зачем парицца? Добавляете в Uses модуль idGlobal и юзайте функцию FileSizeByName. Предназначение ее думаю из названия понятно.

[Winny]

Не знал такой функции Спасибо, учту