Скачать: CL | DM;

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

← →
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]

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

---

← →
{RASkov} ©   (2008-12-16 21:01) [4]

> filesize:=i;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c