@andreloster

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

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

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

Буду благодарен.
  • Вопрос задан
  • 2646 просмотров
Решения вопроса 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;
Ответ написан
Пригласить эксперта
Ответы на вопрос 1
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы