ini не пашет

[L.A.M.E.R.]

доброе время суток! У меня такая проблема: пишу проект поддержкой ini. Но почему то когда я вписываю команды на создание ini, чтение, запись ничего не происходит... Пробовал менять версии компилятора, тоже не помогло... Что посоветуете сделать мне??

[chertovich]

Продемостировать Ваш код

[L.A.M.E.R.]

кода как такового проекта нет, но я набросал код как я делал:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Inifiles;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ini: Tinifile;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Ini:=TiniFile.Create('My.ini');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ini.WriteString('Name', 'Key_Name', 'String Value');
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[GunSmoker]

'My.ini' - и в КАКОЙ ПАПКЕ это будет, как по-вашему?

Читаем:

If the lpFileName parameter does not contain a full path and file name for the file, WritePrivateProfileString searches the Windows directory for the file. If the file does not exist, this function creates the file in the Windows directory.

[Serge_Bliznykov]

ничего не происходит...

а что должно происходить? Фейверк? Музыкальное сопровождение?!
Чтение параметров нормально происходит?!


GunSmoker, как всегда, в точку! +1

я обычно использую такой трюк:
(это чтобы INI файл имел имя запускаемого exeшника и лежал всегда рядом с ним

  AppIniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));

или, если хотите, чтобы имя INI не зависело от EXEшника, но находилось в том же каталоге, что и EXE, тогда можно так:

   AppIniFile := TIniFile.Create(
      ExtractFilePath(Application.ExeName) + 'my.ini');

[astecenko]

А я делаю так:

AppIniFile := TIniFile.Create(
      GetCurrentDir  + '\my.ini');

тогда ini будет браться из рабочего каталога программы, которую можно в ярлыке указать. Получится, что можно иметь 1 исполн модуль (ехе) и несколько ярлыков с разными раб. каталогами, и соответственно запускающими приложение с разными настройками :-)

[Пепел Феникса]

тогда ini будет браться из рабочего каталога программы, которую можно в ярлыке указать.

если на форме есть TOpenDialog, то код обломится.

[Serge_Bliznykov]

astecenko, это неправильный код.
GetCurrentDir может меняться во время работы программы (например, OpenDialog и SaveDialog его меняют!) Сохраните свой ини неизвестно куда.
да и ещё есть нюансы..
НЕ РЕКОМЕНДУЮ так делать!

[GunSmoker]

Получится, что можно иметь 1 исполн модуль (ехе) и несколько ярлыков с разными раб. каталогами, и соответственно запускающими приложение с разными настройками :-)

Вообще-то такие вещи делаются через указание файла-конфигурации в параметрах к программе, например:

C:\Program Files\MyApp\MyApp.exe /config=D:\alt.ini

А использовать текущую папку - крайне плохая идея.

Запуск программы из другой папки - типичная ситуация для командной строки и пакетных файлов. Не говоря уже об ассоциированном и программном запуске.

Фактически, делая такую логику, вы неявно говорите: запускать меня можно или только строго одним способом (дойной клик по программе в проводнике) или обладая секретным знанием (устанавливать текущую папку перед запуском вполне определённым образом).

если на форме есть TOpenDialog, то код обломится.

Не обязательно, там же есть NoChangeDir.

[Пепел Феникса]

Не обязательно, там же есть NoChangeDir.

ну как показывает практика не часто его ставят..