Тема: Ini файл
Показать сообщение отдельно
  #5  
Старый 08.10.2010, 09:12
Аватар для eXplorer
eXplorer eXplorer вне форума
Активный
 
Регистрация: 06.08.2010
Адрес: Ярославль
Сообщения: 264
Версия Delphi: 7
Репутация: 14
По умолчанию

уверены что форм12 есть? при запуске приложения форм12 сама не открывается...

попробуйте..
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
  F: TIniFile;
begin
script.Clear;
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'window.ini');
Form12.ShowModal;
F.ReadString('tools', 'edit1', form12.Edit1.text);
end;

procedure TForm12.Button1Click(Sender: TObject);
var
  F: TIniFile;
  begin
  F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'window.ini');
  F.WriteString('tools', 'edit1', form12.Edit1.Text);
  F.Free;
end;
Ответить с цитированием