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

Question

[andreloster]

Приветствую.

Возникла необходимость сделать условие на проверку текстового файла .txt на пустоту (там ничего нет, включая пробельные символы, символы перевода строки, возврата каретки и т.п.). Проверку на существование сделал.

Буду благодарен.

Answer 1

[Mercury13]

type
  TFileState = ( fsMissing, fsEmpty, fsSomething );

function GetFileState(s : string) : TFileState;
var
  sr : TSearchRec;
  err : integer;
begin
  err := FindFirst(s, faAnyFile and not faDirectory, sr);
  if err <> 0
    then Result := fsMissing
  else if sr.Size = 0
    then Result := fsEmpty
    else Result := fsSomething;
  FindClose(sr);
end;

Comments

[andreloster]

а можно не в формате функции, а для встраивания в процедуру? :) у меня этот код один раз будет использоваться + я новичок в delphi и не особо понимаю некоторые конструкции.

[andreloster]

Сам разобрался, спасибо!

Answer 2

[BladzheR]

проверка файла на пустоту

Comments

[andreloster]

не сработало :(

[BladzheR]

andreloster: Можно еще попробовать данный файл открыть,если успешно открыл,то файл есть,иначе ...

[andreloster]

BladzheR: я проверял до этого на существование. мне нужна проверка на пустоту!

[BladzheR]

andreloster: 1)"valera.asf.ru/delphi/help/name.php?name=seek" 2)попробовать считать файл в массив,а после проверить,если в массиве,что-то есть,...