![]() |
|
#1
|
|||
|
|||
![]() Проблема такая, хочу сохранять настройки в ини файл. Вроде написал правильно, но вот такая ошибка:
![]() Код: Код:
procedure TForm1.FormCreate(Sender: TObject); var F: TIniFile; begin script.Clear; F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'window.ini'); 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; Если убираю строчку F.ReadString('tools', 'edit1', form12.Edit1.text); то компилится без ошибок. Последний раз редактировалось Мяфк, 08.10.2010 в 01:34. |