Dateiennamen und Versionen filtern

[Brakeman]

Hallo,
ich möchte aus einem Verzeichnis die enthaltenen Dateien (Quellcode) folgendermassen filtern:

Es soll für jede Datei die höchste Version herausgefunden werden und in ein Array oder eine Liste geschrieben werden. Nun müsste ich ja erstmal alle Datein gleichen Namens herausfinden und dann im zweiten Gang nach der höchsten Version suchen. Wie könnte man das am besten machen?

Die Dateien heißen z.B.:

-MacheDies_2_0.java
-MacheDies_3_0.java
-MacheDies_4_0.java
-MacheDies_5_0.java
-MacheDas_2_0.java
-MacheDas_3_0.java
-MacheDas_4_0.java
-MacheDas_5_0.java

Wäre für jede Hilfe sehr dankbar!

[Klaus01]

Guten Morgen,

suche bitte hier im Forum nach FindFirst und FindNext.
Dazu sollten sich genügend Beispiele finden lassen.

Grüße
Klaus

[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

Delphi-Quellcode:

Showmessage(GetLatestVersion('C:\MacheDies*');

[Brakeman]

Danke,
mit der Function geht es super!