ورود

View Full Version : سوال در مورد ساخت فایل ini



anf-b
جمعه 26 فروردین 1384, 21:30 عصر
سلام
من می خوام وقتی که برنامه م بسته میشه 1 فایل با نام Information.ini بسازه و Text آخرین چیزی که بر روی Edit1 نوشته شده در اون ذخیره بشه و در موقعی که دفعه بعد اون رو باز می کنه Text مورد نظر (ذخیره شده) برای Edit1 نوشته شده باشه

vcldeveloper
شنبه 27 فروردین 1384, 03:33 صبح
کد زیر می تونه نیاز شما رو برطرف کنه، اما برای کسب اطلاعات بیشتر درباره فایلهای ini می تونید به راهنمای دلفی مراجعه کنید (موس را بر روی کلمه TIniFile ببرید و کلید F1 را فشار دهید)


uses iniFiles;

procedure SaveInfo(Info: string);
var
iniFile : TIniFile;
begin
//Create ini file
iniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) +'Information.ini');
try
iniFile.WriteString('Your Section','Your Identity',Info);
finally
iniFile.Free;
end;
end;

function LoadInfo: string;
var
iniFile : TIniFile;
begin
iniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) +'Information.ini');
try
Result := iniFile.ReadString('Your Section','Your Identity','Your Default Value');
finally
iniFile.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := LoadInfo;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SaveInfo(Edit1.Text);
end;