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

Пользователь

от nicolette.stoltenberg , в категории: Другие , год назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

P

Пользователь

от Programmer , год назад

@nicolette.stoltenberg 

Добрый день!

Если речь о текстовом файле то можно воспользоваться классом TStringList;

Пример:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
var sl: TStringList;
	  FileName: string;
begin
	FileName:= 'Путь к файлу';
	sl:= TStringList.Create;
	sl.LoadFromFile(FileName);
	if length(sl.Text) > 0 then
		ShowMessage('Файл не пустой');
	sl.Free;
end;