Programm lässt sich nicht beenden

[luigied]

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