Короткий пример, лучше всего..
|
|
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; |