Hi Leut's,
habe nen kleines Problem.
Will bei meinem Programm überprüfen ob nen ini-File exisitiert und wenn nicht das dann anlegen. Irgendwie klappt das aber nicht so wie ich das will.
Hier mein Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| begin
if FileExists('C:\paths.ini') then
begin
end
else
begin
if MessageDlg('Existiert nicht. Anlegen?', mtConfirmation, [mbYes, mbNo],0) = 0 then
begin
iniContent:=TStringlist.Create;
try
iniContent.add('paths.ini');
iniContent.SaveToFile('C:\paths.ini');
finally
iniContent.free;
end;
if FileExists('C:\paths.ini') then
begin
MessageDlg('Angelegt', mtInformation, [mbOK], 0);
end
else MessageDlg('Nicht angelegt', mtInformation, [mbOK], 0);
end;
end; |
Kann meinem Fehler nicht finden. Könnt ihr da mal drüber schauen und mir sagen was ich falsch gemacht hab?
Ich komme bis zur Meldung dass kein File angelegt wurde, klicke auf ja, aber nix passiert, bzw. das Fenster verschwindet aber weiter passiertt nix und das file wird auch nicht angelegt?
Airwolf
