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

 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;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22

function IsFileEmpty(const FileName: string): Boolean;
var
  F: File;
  Size: Integer;
begin
  Result := False;
  AssignFile(F, FileName);
  try
    Reset(F);
    try
      // определяем размер файла
      Size := FileSize(F);
      Result := (Size = 0);
    finally
      CloseFile(F);
    end;
  except
    // обрабатываем ошибку открытия файла
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;