Ornder durchsuchen

[paritycheck]

Hi,

Schau Dir mal die Funktionen Findfirst und Findnext an.

Delphi-Quellcode:

...
var SR: TSearchRec;
begin
  if FindFirst('C:\*.mlo', faAnyFile, SR) = 0 then begin
     repeat
      Listbox1.add(sr.Name);
    until
      FindNext(sr) <> 0;
  end;
...