Findfirst/Findnext-Suchmaske

[godlike]

Zitat:

Falls Du als Zielplattform also Win98 hast

Hehehe, nein, das ist weniger meine Zielplattform... ich denke aus diesem Jahrhundert sind wir langsam raus.

Zitat von marabu:

Hallo,

man kann es zu Fuß machen - oder man verwendet eine Komponente:

Delphi-Quellcode:

function GetFiles(const dir, masks: string; s: TStrings = nil): Integer;
begin
  with TFileListBox.CreateParented(HWND(-3)) do
  try
    Mask := masks;
    Directory := dir;
    FileType := [ftArchive];
    Result := Items.Count;
    if Assigned(s) then
      s.Assign(Items);
  finally
    Free;
  end;
end;

{
var
  s: TStrings;
  n: Cardinal;
begin
  s := TStringList.Create;
  n := GetFiles('c:\audio', '*.mp3;*.mp4', s);
  ShowMessage(IntToStr(n) + sLineBreak + s.Text);
  s.Free;
end;
}

Grüße vom marabu

Hört sich vielversprechend an... oder besser "gesagt", sieht vielversprechend aus... Hoffe dass ich am Mittwochabend wieder Zeit zum Proggen habe, dann probiere ich beide Wege mal aus. Danke euch, Leute! Echt ein supi Forum!