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

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

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

---

← →
Desdechado ©   (2006-08-03 14:02) [2]

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

---

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

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



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