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

Помогите с ini пожалуйста.   Найти похожие ветки 

← →
SoniK ©   (2002-09-16 23:26) [0]

Как сделать, чтобы при запуски провералось наличие файла ини если нету такового, создавать его?

---

← →
Anatoly Podgoretsky ©   (2002-09-16 23:35) [1]

FileExists

---

← →
Hro ©   (2002-09-16 23:54) [2]

Создает ini файл в каталоге программы
var
Myini : TInifile;
begin
MyIni := TIniFile.Create(ExtractFilePath(ParamStr(0))+"myini.ini");

end;

---

← →
SoniK ©   (2002-09-17 00:12) [3]

procedure TCarM.FormCreate(Sender: TObject);
var
ini: TInifile;
begin
if FileExists("carm.ini") then
begin
MessageDlg("Ini File ok", mtWarning, [mbOk], 0);
end
else
ini.Create("carm.ini");
end;

Исполнил такое Ж)))
При компиляции какаято проблема с созданием второй формы что это???

---

← →
SoniK ©   (2002-09-17 00:30) [4]

Попрвте пожалуйста, что не так Ж)

---

← →
¤NoNaMe¤   (2002-09-17 00:48) [5]

ini:=TIniFile.Create("carm.ini");

---

← →
SoniK ©   (2002-09-17 01:01) [6]

Нет дело в том что я уже пробовал так всё равно не работает проверте весь код пожалуйста.

---

← →
Almaz ©   (2002-09-17 02:11) [7]

>SoniK © (17.09.02 01:01)

Вам просто ini файл создать надо ? Тогда так:

procedure TCarM.FormCreate(Sender: TObject);
var
F: TextFile;
begin
if FileExists("carm.ini") then
MessageDlg("Ini File ok", mtWarning, [mbOk], 0)
else
begin
AssignFile(F, "carm.ini");
Rewrite(F);
CloseFile(F);
end;
end;

p.s. А TIniFile.Create файл на диске не создает.

Удачи.

---

← →
Aleks1   (2002-09-17 03:00) [8]

Тем не менее класс TIniFile файл на диске проверит на существование и создаст его, если нужно, при грамотном пользовании.

---

← →
S ©   (2002-09-17 07:59) [9]

Если так создавать файл, то он будет создаваться в директории виндовс. А правильно создать так как писал Hro. Если файл есть то будет читать из него, если нету то создаст.

---

← →
Pumpkin   (2002-09-17 10:35) [10]

Используй апишные GetPrivateProfileXXX и WritePrivateProfileXXX
они сами тебе все сделают.

---

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

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



Память: 0.47 MB
Время: 0.01 c