Ошибка при открытии файла.

← →
Jimmy (2006-08-03 13:36) [0]

Когда создаю новое Application, помещаю на Form1 Button1, и пишу
procedure TForm1.Button1Click(Sender: TObject);
var FName:String;
f:TextFile;
begin
FName:="C:\1.txt";
AssignFile(f,FName);
{$I-}
Reset(f);
if ioresult<>0 then ShowMessage("Cann`t open file!");
CloseFile(f);
{$I+}
end.
файл FName открывается и с первого раза и с любого. (И это понятно!) А когда тот же код я вставляю в свой графический редактор, файл FName при первой попытке открытия не открывается (выдает ошибку I/O 103 на строке Reset если
убрать {$I-}), а со второго раза открывается. Причем к этому файлу я нигде в редакторе больше не обращаюсь. В чем может быть дело? Заранее спасибо.

← →
Германн © (2006-08-03 13:47) [1]

103 - File not open
Что-то не то. Имхо, не может эта ошибка возникать на строке Reset.

Может, файла нет?

Ошибка при открытии файла. Найти похожие ветки