Verzeichnis auf Existenz prüfen?

[AlexII]

Zitat:

Zitat von DeddyH

Und ich verstehe nicht, wieso Du Dir Dein Verzeichnis immer noch ständig neu zusammenbastelst. Ich hatte Dir doch erklärt, wie das mit Konstanten und privaten Feldern besser geht.

Ja das werde ich ändern, ist kein Problem, das Problem ist wieso die Fehlermeldung nicht kommt, wenn das Verzeichnis nicht existiert. :gruebel:

[DeddyH]

Der Code ist aber eigentlich in Ordnung. Steht da vielleicht noch was anderes dazwischen?

[AlexII]

Ne nix dazwischen, eins zu eins kopiert.

Das wird im Ereignis TForm1.FormShow aufgerufen, vllt liegt hier der Fehler? :gruebel:

[DeddyH]

Daran kann es nicht liegen. Zeig mal den ganzen Code vom FormShow.

[AlexII]

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var update: Integer;
    Ini   : TIniFile;
    UserAppDataDir, ProgPath: String;
begin
  UserAppDataDir := GetSpecialFolder(CSIDL_LOCAL_APPDATA);
  if FileExists(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\Config.ini') then
  begin
    Ini := TIniFile.Create(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\Config.ini');
  try
    ComboBox1.ItemIndex := Ini.ReadInteger('Default', 'Channel', 1);
  finally
    ini.free;
  end;

if DirectoryExists(UserAppDataDir + AppDataRootDir + AppDataProjectDir) then
begin
showmessage('Ja');
end else showmessage('Nein');

ProgPath := ExtractFilePath(ParamStr(0));

if FileExists(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\original.txt') then
begin
ListBox1.Items.LoadFromFile(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\original.txt');
end else ListBox1.Items.LoadFromFile(ProgPath + 'ersatz.txt');
end;

PS. Das mit deinem Vorschlag werde ich noch umsetzen.

[DeddyH]

Hab ich mich verzählt oder fehlt da ein "end;"?

[AlexII]

Hab wahrscheinlich nicht mitkopiert, aber das Programm läuft, also es fehlt nichts. Wie gesagt "Ja" wird ausgegeben, dann lösche ich den Ordner "AppDataProjectDir" und die Meldung "Nein" springt nicht auf.

[DeddyH]

Natürlich nicht, da als erste Bedingung geprüft wird, ob die Ini existiert. Kann sie aber nicht, wenn es das Verzeichnis gar nicht gibt. Wenn Du vernünftig einrücken würdest, hättest Du das wahrscheinlich auch gesehen ;)

[AlexII]

Ja und was hat das damit zutun, ja die ini existiert nicht, aber danach wird ja wieder nach nem anderem Verzeichnis gefragt. :gruebel: Verstehe ich nicht.

[AlexII]

Aaaaaa jetzt verstehe ich, der Ordner wird ja für ini erstellt, genau. :dancer2: