Delphi - Combobox Inhalt eines Ordners

[michJack]

Hallo. Ich möchte mir in meiner Combobox automatisch alle Text (.txt) Dateien anzeigen lassen die im Programm Ordner vorhanden sind.

Kann mir da jemand helfen ? :)

Danke !

MFG ..michJack

[Sharky]

Hai michJack,

da gibt es verschiedene Lösungen ;-)
Hier mal die Links zu den Lösungengrundlagen im Forum:

sakuras Eintrag in der Code-Library

Code von marabu zum Zählen von Dateien bis D7
Code von marabu zum zählen von Dateien (ab D2005)

Ich benutze hier mal den Code von marabu (D2006) in leicht veränderter Form (ich möchte ja nicht die Dateien zählen).

Delphi-Quellcode:

uses FileCtrl;

procedure GetFileList(aMask : string;aList : TStrings);
begin
  aList.Clear;
  with TFileListBox.CreateParented(HWND(-3)) do
  begin
    try
      Mask := ExtractFileName(aMask);
      Directory := ExtractFilePath(aMask);
      FileType := [ftArchive];
      aList.Assign(items);
    finally
      Free;
    end
  end;
end;

procedure TDemoForm.Button1Click(Sender: TObject);
var
  apppath : string;   // Pfad zum Anwendungesverzeichniss
  mask : string;
begin
  apppath := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)));
  mask := '*.txt';
  GetFileList(apppath + mask,ComboBox1.Items);
end;