Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Dateisuche - rekursiv

    Delphi
    by himitsu, 10. Dez 2009
  'nen besonderen Grund gibt's nicht, aber
  - ich seh in einer Optimierung keinen Vorteil, da hier der Datenträger mehr ausbremst, als das "unoptimalere" Speichermanagement
  - dann hat man heutzutage einen "optimaleren" Speichermanage (FastMM) in Delphi integriert (OK, in Delphi 7 ist der noch nicht standardmäßig drinnen), welcher praktisch deine "32er-Schritte" erledigt und ich somit diese...
• Forum: Object-Pascal / Delphi-Language

  Re: Dateisuche - rekursiv

    Delphi
    by himitsu, 8. Dez 2009
  http://www.delphipraxis.net/internal_redirect.php?t=167783
  
  Hab das "Next" aber andersumgesetzt.
  Vorallem das das "Next" beim TFileFinder ein bissel verwirrend benannt ist,
  da man es auch zum Starten als "First" nutzt. :shock:
• Forum: Object-Pascal / Delphi-Language

  Re: Dateisuche - rekursiv

    Delphi
    by himitsu, 8. Dez 2009
  Das Ganze komplett auf Callback umzustellen geht noch einfach.
  Dieses ginge auch bei der rekursiven Lösung genauso einfach.
  
  Type TFAFCallback = Procedure(Const Filename: String; Count: Integer);
  
  Function FindAllFilesCallback(Callback: TFAFCallback; Const Dir: String;
  Const Mask: String = '*.*'; Recurse: Boolean = True): Integer;
  
  Var MaskN, MaskE: String;
  i: Integer;
• Forum: Object-Pascal / Delphi-Language

  Re: Dateisuche - rekursiv

    Delphi
    by himitsu, 8. Dez 2009
  Wenn du das FindAllFiles von einer Rekursion auf eine Iteration umstellst, dann sollte sich da "leicht etwas machen lassen,
  dann kannst du leicht mittendrinnen rausspringen, also die Suchfunktion verlassen und später (in .Next) neu einsteigen.
  
  Würde dann in entwa auf ein ähnliches Verfahren rauskommen, wie beim SAX-Parser in der alten Version meines himXML (in der Neuen ist er noch nicht...