Не могу записать значение ключа для INI файла

← →
AlexA (2003-07-03 10:29) [0]

Следущия процедура только создает файл без записи ключа.
Procedure ApplIni;
Var
Ini : TIniFile;
F : File;
SFile : string;
begin
SFile := "Disp.ini";
If (not FileExists(sFile)) then
begin
AssignFile(F, sFile);
Rewrite(f);
CloseFile(f);
Ini := TIniFile.Create(SFile);
Ini.WriteString("Base","Disp","dispetcher:c:\Base\Patp_pl.gdb"); //указаная строка не записывает ключ :-(
Ini.Free;
end;
end;
Уважеемые мастера, что я делаю не так? Спасибо

← →
MBo (2003-07-03 10:36) [1]

procedure TForm1.Button1Click(Sender: TObject);
var Ini : TIniFile;
begin
Ini := TIniFile.Create("e:\file.ini");
Ini.WriteString("Base","Disp","dispetcher:c:\Base\Patp_pl.gdb"); //указаная строка не записывает ключ :-(
Ini.Free;
end;

работает

← →
Poirot (2003-07-03 10:40) [2]

> AlexA ©

файл закписывается куда-то нетуда... пробейте по винту... работает как штык! Файл может попасть в системную папку!

← →
Bel (2003-07-03 11:41) [3]

И, кстати,

AssignFile(F, sFile);
Rewrite(f);
CloseFile(f);

здесь лишние. При отсутствии файла ТIniFile его сам создаст.

Не могу записать значение ключа для INI файла Найти похожие ветки