Помогите разобраться с фенькой!
Есть небольшая "фенька":
procedure TOKBottomDlg1.OKBtnClick(Sender: TObject);
Var f1:TextFile;
n:String;
begin
n:=ExtractFilePath(ParamStr(0));
n:=Concat(n,'SYS.db');
if FileExists(n)=false then FileCreate(n);
AssignFile(f1,n);
Reset(f1);
end;
Проблема: если файл создаётся, то пишет ошибку I/OError=32. Перезапускаю - файл открывается нормально. В чём дело, что за фишка?
|