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

[vitaliy1911]

как определить - пустой типизированный файл или нет? заранее спасибо

[Stilet]

Посмотреть его размер
Если он 0 то пустой
Размер можно глянуть через функцию FileSize

[vitaliy1911]

procedure TForm5.FormShow(Sender: TObject);
begin

assignfile(f,f_name);
reset(f);
i:=filesize(f);
closefile(f);

end;

вот так сделал.. файл не пустой. при запуске выделил строку:
i:=filesize(f);
и выкинул ошибку:

из-за чего такая ерунда может быть?(

[Grag]

У тебя файл какого типа? Т.е. как описываешь файловую переменную f???

[vitaliy1911]

type myquest=record
quest:string[100];
key:string[20];
v1:string[10];
v2:string[10];
v3:string[10];
v4:string[10];
otv:0..3;
end;

myfile=file of myquest;

var
f:myfile;
s:myquest;

я вообще не могу понять в чем дело - главное на другой форме точно такой же код с таким же описанием запускается без ошибок. а вот на этой - какая-то фигня(

[Serge_Bliznykov]

я бы на Вашем месте
1) через фунцию FileExists() предварительно проверил наличие файла:

if Not FileExists(f_name) then begin
   ShowMessage('Файл '+f_name+' не найден.'); 
   Exit;
end;
... ваш код...

2) проверил, а файл вообще открывается? Может на него просто нет прав? А из программы открывается? Или он находится на Read-Only носителе?...

[vitaliy1911]

нашел причину - забыл добавить f_name в константы) Stilet, большое спасибо, теперь все работает)

[vitaliy1911]

Serge_Bliznykov, идея хорошая но все (как всегда) оказалось куда прозаичнее и примитивнее) как обычно я не замечаю только самые грубые и очевидные ошибки)