
28.05.2010, 13:56
|
 |
Активный
|
|
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
|
|
Можно использовать ini
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
Edit1.Text:= Ini.ReadString('data', 'Edit1_Text', '');
Ini.Free;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
Ini: TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'log.ini');
Ini.WriteString('data', 'Edit1_Text', Edit1.Text);
Ini.Free;
end;
|