02.10.2010, 21:34
|
 |
Активный
|
|
Регистрация: 06.08.2010
Адрес: Ярославль
Сообщения: 264
Версия Delphi: 7
Репутация: 14
|
|
Код:
var
F: TIniFile;
begin
F:= TIniFile.Create(ChangeFileExt(ParamStr(0),'rgrgfg.ini'));
F.WriteString('Param','Id1',Edit1.Text);
f.free;
end; |