Nach Datei mit variablem Namen aber bestimmter Endung suchen

[marabu]

Während ihr sucht - das sollte funktionieren:

Delphi-Quellcode:

procedure GetFiles(folder: string; s: TStrings; mask: string = '*.*');
var
  sr: TSearchRec;
begin
  folder := IncludeTrailingPathDelimiter(folder);
  if FindFirst(folder + mask, faArchive, sr) = 0 then
  try
    repeat
      s.Add(folder + sr.Name);
    until FindNext(sr) <> 0;
  finally
    FindClose(sr);
  end;
end;

Grüße vom marabu