[Adrenalin666]

Код:

begin
  with TInifile.Create('Save')Do
    begin
      WriteString('Main','Edit',Edit1.Text);
    end;
end;

вот при клике такие действия, в каталоге программы лежит файл Save.ini но чтото не сохраняет

[lmikle]

Код:

begin
  with TInifile.Create('Save')Do
    begin
      WriteString('Main','Edit',Edit1.Text);
      free
    end;
end;

[Adrenalin666]

и толку то? все равно не сохраняет

[Adrenalin666]

procedure TForm1.Button8Click(Sender: TObject);
begin
with TInifile.Create('Save')Do
begin
WriteString('Main','Edit',Edit1.Text);
free
end;
end;

может там написать Save.ini или еще что

[v1s2222]

Код:

procedure TForm1.Button8Click(Sender: TObject);
begin
  with TInifile.Create('Save.ini') Do
  begin
    WriteString('Main','Edit',Edit1.Text);
    free;
  end;
end;

Должно работать.

[Adrenalin666]

никаких ошибок даже просто в файле ini ничего не появляется он пустой