Работа с Ini файлами.
Короткий пример, лучше всего..
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
uses INIFiles; procedure TForm1.Button1Click(Sender: TObject); Var IniF:TINIFile; begin Inif := TINIFile.Create('getmailconf.ini'); INiF.WriteString('config','email',form1.emailto.text); end; procedure TForm1.FormCreate(Sender: TObject); Var IniF:TINIFile; begin Inif := TINIFile.Create('getmailconf.ini'); form1.emailto.text:=INiF.ReadString('config','email','testmail@yartelecervice.ru'); end; |