Подскажите плз как корректно отказаться от открытия файла

← →
smartleds (2008-12-16 20:02) [0]

Проблема в следующем при открытии файла , используя стандартный диалог файл опен, запускается окно открытия файла, в котором можно выбрать имя файла и нажав на кнопку открыть этот файл. Также в этом диалоге присутствует кнопка "Отмена", при нажатии на которую у меня выскакивает ошибка:
Project xxx.exe raised exception class EInOutError with message I/O error 102.
В программме указывает на эту строку Reset(fileofdata);
if form1.opendialog1.execute then
AssignFile(fileofdata, opendialog1.filename);
Reset(fileofdata); <====!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
i:=0;
while not EOF(fileofdata) do
begin
Read(fileofdata,filearray[i]);
i:=i+1;
end;
filesize:=i;

Как можно избежать этой ошибки?

← →
Правильный$Вася (2008-12-16 20:28) [1]

почитать про операторные скобки begin-end

← →
{RASkov} © (2008-12-16 20:30) [2]

> [0] smartleds (16.12.08 20:02)

if then begin

end;

← →
smartleds (2008-12-16 20:52) [3]

Спасибо, не углядел

> filesize:=i;

Если это получение размера файла, то....
Из справки:
AssignFile(f, OpenDialog1.FileName); Reset(f); try size := FileSize(f); finally CloseFile(f); end;
Так же:
Ф1 + FindFirst, FindClose и TSearchRec.Size...

Подскажите плз как корректно отказаться от открытия файла Найти похожие ветки