Delphi

Вопрос

Помогите устранить ошибки:

На форме 2 кнопки. Обрабртчики такие:
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then Edit1.Text := OpenDialog1.FileName; end; procedure TForm1.Button2Click(Sender: TObject); var inif : tinifile; begin inif := tinifile.Create('.\option.ini'); inif.Writestring('sect','ident','val'); end;
Проблема: если сразу после запуска программы нажать 2ю кнопку, то ini-файл создается и в него заносится значение ident = val, но если сначала нажать 1ю кнопку, выбрать файл, а затем 2ю кнопку, то ini-файл не создается.

Почему? Как исправить?

Ответ

Нада делать так:

var inf:tinifile; begin inf := tinifile.create(ExtractFilePath(Application.ExeName)+'option.ini'); inf.writestring('sect','id','val'); inf.free; end; Из конференции Expert_FAQ