Архивы ini

Работа с Ini файлами.

28.10.2014 Павел Грибов Lazarus

Короткий пример, лучше всего..

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;

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;

Оставить комментарий freepascal, ini, lazarus

Пн	Вт	Ср	Чт	Пт	Сб	Вс
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31