Hallo Mario,
einen Ansatz hätte ich noch:
Delphi-Quellcode:
// uses QFileCtrls;
function CountFiles(filespec: string): integer;
var
d: TDirectory;
begin
d := TDirectory.Create(nil);
d.BeginUpdate;
d.FileMask := ExtractFileName(fileSpec);
d.Location := ExtractFilePath(fileSpec);
d.FileType := [ftArchive];
d.EndUpdate;
Result := d.Count;
d.Free;
end;
Wenn die Dateien fortlaufend und lückenlos nummeriert sind, dann liefert dir CountFiles('Daten*.txt') die letzte vergebene Dateinummer im Arbeitsverzeichnis.
Grüße vom marabu