| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите плз как корректно отказаться от открытия файла [D7, XP]
smartleds © (2008-12-16 20:02:00)Проблема в следующем при открытии файла , используя стандартный диалог файл опен, запускается окно открытия файла, в котором можно выбрать имя файла и нажав на кнопку открыть этот файл. Также в этом диалоге присутствует кнопка "Отмена", при нажатии на которую у меня выскакивает ошибка:
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;
Как можно избежать этой ошибки?
{RASkov} (2008-12-16 21:01:00) [1]> filesize:=i;
Если это получение размера файла, то....
Из справки:
AssignFile(f, OpenDialog1.FileName);
Reset(f);
try
size := FileSize(f);
finally
CloseFile(f);
end;
Так же:
Ф1 + FindFirst, FindClose и TSearchRec.Size...
smartleds (2008-12-16 20:52:00) [2]Спасибо, не углядел
{RASkov} (2008-12-16 20:30:00) [3]> [0] smartleds (16.12.08 20:02)
if then begin
end;
Правильный$Вася (2008-12-16 20:28:00) [4]почитать про операторные скобки begin-end
| |
