Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Programm lässt sich nicht beenden

   
    by luigied, 20. Sep 2006
  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.
  
  
  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);