Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Теоретические вопросы _ Саздание на диске D.
Автор: thinkslow 13.01.2007 2:50
Прога создает файл на дисках C, ну и D. Если диска D нет вылетает окошко с ошибкой. Можно зделать так, что бы "окошка не было"? Подскажите.
Автор: Ozzя 13.01.2007 11:08
Цитата(thinkslow @ 12.01.2007 23:50) 
Прога создает файл на дисках C, ну и D. Если диска D нет вылетает окошко с ошибкой. Можно зделать так, что бы "окошка не было"? Подскажите.
Отключить перед созданием файла контроль ввода-вывода {I-}, затем включить {I-}.
Код ошибки в переменной IoResult
Автор: Bokul 13.01.2007 11:23
Цитата
Отключить перед созданием файла контроль ввода-вывода {I-}, затем включить {I-}.
Немного не правильно - {$I-} и {$I+}
Автор: Гость 20.01.2007 22:21
Цитата(Bokul @ 13.01.2007 7:23)
Немного не правильно - {$I-} и {$I+}
А если это не работает(или я что-то делаю не так)?
Автор: volvo 20.01.2007 22:26
А если привести свою программу, чтобы мы посмотрели, ТАК или НЕ ТАК? (Тогда топик будет перенесен в "Задачи")? Или откроем курсы гадалок?
Автор: Гость 21.01.2007 23:58
Код
Uses windos;
var
a:text;
i:integer;
begin
i:=0;
repeat
i:=i+1;
if i=1 then begin
Assign(a,'C:/somefile.txt');
end;
if i=2 then begin
Assign(a,'D:/somefile.txt');
end;
rewrite(a);
write(a,'Sometext');
close(a);
until i=2;
end.
var
a:text;
i:integer;
begin
i:=0;
repeat
i:=i+1;
if i=1 then begin
Assign(a,'C:/somefile.txt');
end;
if i=2 then begin
Assign(a,'D:/somefile.txt');
end;
rewrite(a);
write(a,'Sometext');
close(a);
until i=2;
end.
Если диска D нет, то TPascal7.0 пишет в черном окошке "runtime error...".
но Мне надо откомпилировать в Tpascal for windows, а там, после запуска exe, появляется маленькое окно с ошибкой. Как етого избежать?
Автор: Гость 22.01.2007 0:03
{I+} {I-} это чудо куде девать - не знаю