Hallo.
Delphi-Quellcode:
procedure WriteProgramsToIniFile;
var
i,j : integer;
ini : TIniFile;
begin
i := FSetUp.LBoxSetUp.Count;
for j := 0 to i - 1 do
begin
ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + IFN);
if FileExists(ExtractFilePath(Application.ExeName) + IFN) then
ShowMessage('OK') else ShowMessage('MIST');
try
ini.WriteString('Programme', FSetUp.LBoxSetUp.Items[j], '');
ShowMessage(IntToStr(j));
finally
ini.Free;
end;
end;
end;
Hier passiert folgendes:
Wenn das Programm erstmals gestartet wird - d.h. noch keine Ini-Datei vorhanden ist - wird die Datei erzeugt, Showmessage zeigt "OK" und dann bricht das Programm mit der o.a. Fehlermeldung ab. Die Datei wurde zwar erstellt, ist jedoch leer.
Wird das Programm dann noch einmal gestartet, werden die Einträge in die Datei geschrieben und alles ist gut.
Hat dafür jemand eine Erklärung?
Gruß Jürgen
[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]