Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Brauche Hilfe bei Rekursion

    Delphi
    by omata, 3. Jan 2012
  Ich hatte den Quellcode aus einer meiner Anwendungen herauskopiert, ich wusste nicht mehr, wo ich den her hatte. Ich hasste Ausrufezeichen. Es kommt nicht nochmal vor, dass ich dir helfe.
• Forum: Object-Pascal / Delphi-Language

  AW: Brauche Hilfe bei Rekursion

    Delphi
    by omata, 3. Jan 2012
  uses SysUtils;
  
  procedure getFilesInDirectory(Directory: string; const Mask: string;
  WithSubDirs: Boolean; Files:TStrings);
  
  procedure ScanDir(const Directory: string);
  var SR: TSearchRec;
  begin
  if FindFirst(Directory + Mask, faAnyFile and not faDirectory, SR) = 0 then
  begin