Hi.
Du könntest auch ne prozedur schreiben, die die Dateierweiterung überprüft, nur das sie als Parameter die schon durchsuchten enthält.
Dazu müsstest du die bekannten extensions aber in nem Array speichern.
Delphi-Quellcode:
procedure check(ext: string, Anzahl_der_ueberprüften: integer);
begin
if(!ext = extA(Anzahl_der_ueberprüften) then
check(ext, Anzahl_der_ueberprüften +1);
else begin
Verschiebung
break // müsste rekursiven Aufstieg verhindern
end;
nicht getestet, aber sollte so in etwa hinhauen
Sorry wenn meine Beiträge etwas sinnlos sind bin aber
1. Anfänger und hab 2. in letzter Zeit kaum noch Zeit für Delphi, da ich beruflich mit
php arbeiten muss
