Alle Textdateien eines Ordners öffnen!

[SirThornberry]

du kannst auch einfach eine Stringlist zum laden nehmen und dann Stringlist.Text der Combobox hinzufügen.

Delphi-Quellcode:

var LStrList: TStringlist;
    LPfad: String;
    LSearchRec: TSearchRec;
begin
  LPfad := 'e:\';
  Combobox1.Items.Clear;
  LStrList := TStringlist.Create;
  if FindFirst(LPfad + '*.txt', faAnyFile, LSearchRec) = 0 then
  begin
    repeat
      if LSearchRec.Attr and faDirectory = 0 then
      begin
        LStrList.LoadFromFile(LPfad + LSearchRec.Name);
        Combobox1.Items.Add(LStrList.Text);
      end;
    until FindNext(LSearchRec) <> 0;
    FindClose(LSearchRec);
  end;
  LStrList.Free;