| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите с ini пожалуйста. [D5, Win95/98]

SoniK ©   (2002-09-16 23:26:00) 

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

---

Pumpkin   (2002-09-17 10:35:00) [1]

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

---

S   (2002-09-17 07:59:00) [2]

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

---

Aleks1   (2002-09-17 03:00:00) [3]

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

---

Almaz   (2002-09-17 02:11:00) [4]

>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 файл на диске не создает.

Удачи.

---

SoniK   (2002-09-17 01:01:00) [5]

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

---

¤NoNaMe¤   (2002-09-17 00:48:00) [6]

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

---

SoniK   (2002-09-17 00:30:00) [7]

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

---

SoniK   (2002-09-17 00:12:00) [8]

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;

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

---

Hro   (2002-09-16 23:54:00) [9]

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

end;

---

Anatoly Podgoretsky   (2002-09-16 23:35:00) [10]

FileExists

---

Наверх