بسته نشدن فایل باز شده توی بعضی سیستم ها

[takfanar]

سلام یک برنامه نوشتم که از این کد درش استفاده شده

AssignFile(F7,'c:\config.harchi');
Reset(F7);
ReadLn(F7, S);
Sn := S;
// ShowMessage(s);
ReadLn(F7, S);
edit1.text:= S;
//ShowMessage(s);
CloseFile(F7);
حالا تو بعضی سیستم ها که اجرا می کنم یک پیقام میده که نمی تونه فایل رو ببنده کسی میدونه چی کار میشه کرد

[مهران رسا]

دقیقاً چه پیغامی دریافت می کنید ؟

[takfanar]

اینم یک تصویر از پیامی که دریافت می کنم البته این روی بیشتر سیستم ها هاست ولی روی مال خودم نه!
Operation is not allowed when the object is open
جالب این از فایل فقط همین برنامه داره استفاده می کنه و روی سیستم خونه هیچ مشکلی نداره
این روشم به کار بردم بازم همین جوری شد

Fi:=TStringList.Create;
Fi.LoadFromFile('file.dll');
Sn:=Fi.Strings[0];
DataModule1.ADOConnection1.ConnectionString:=Fi.St rings[1