Показать сообщение отдельно
  #2  
Старый 28.05.2010, 13:56
Аватар для pesi
pesi pesi вне форума
Активный
 
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
По умолчанию

Можно использовать ini
Код:
USES
  IniFiles;

Код:
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;
Ответить с цитированием