Помогите с 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
они сами тебе все сделают.

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