Verzeichnis auf Existenz prüfen?

[DeddyH]

Trotzdem habe ich Deinen Code mal neu formatiert:

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
    //dieser Block wird niemals ausgeführt, wenn die Ini nicht existiert
    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;
end;

Bei nachvollziehbarer Einrückung sieht man das sofort

[AlexII]

Hab das Programm noch mal gestartet, ohne Code zu ändern, und es wird auf einmal nix erstellt, nicht die ini und nicht der Ordner, jetzt verstehe ich garnix.

Aber danke dir, ich gucke mal jetzt weiter.

[AlexII]

Hab die Geschichte mit der .ini am Ende der procedure gesetzt und jetzt funkt alles, aber wirklich alles.

Thx noch mal.