Dateiennamen und Versionen filtern

[chrisw]

Ich würde das folgendermaßen machen:

Delphi-Quellcode:

function GetLatestVersion (FileName: String) : String;
var sl : TStringList;
    sr : TSearchRec;
begin
  sl := TStringList.Create;
  sl.Sorted := True;
  if FindFirst(FileName,faReadOnly,sr) = 0 then sl.Add(sr.Name);
  while FindNext(sr) = 0 do sl.Add(sr.Name);
  FindClose(sr);
  if sl.Count > 0 then Result := sl[sl.Count -1] else Result := '';
  sl.Free;
end;

Aufruf z.Bsp. mit Showmessage(GetLatestVersion('C:\MacheDies*');