Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: 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 файл на диске проверит на существование и создаст его, если нужно, при грамотном пользовании.


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

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


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

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



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

Текущий архив: 2002.09.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
3-85324
Леван
2002-08-30 14:28
2002.09.26
Delphi+sql server 7.0


14-85678
spROOT13
2002-08-30 19:57
2002.09.26
Реестр в DOS


1-85427
Максимка
2002-09-15 20:05
2002.09.26
Завершение процессов...


14-85696
Mike B.
2002-09-02 13:00
2002.09.26
К вопросу о рекламе и телевидении


3-85348
Nikolai_S
2002-09-02 17:24
2002.09.26
Доступ из MS Access к данным из других СУБД с пом. SQL