Скачать: CL | DM;

Не могу записать значение ключа для 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 его сам создаст.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c