GetFILEs mit INterruption ..

[wschrabi]

Hi Leute,
ich hab das hier gelesen und komm damit nicht klar: http://codeverge.com/embarcadero.del...getfil/1068298


Ich will auch das root dir nicht durchsuchen. Und hab diesen CODE:

Kann mir jmd sagen, wo der Fehler liegt?
DANKE

Delphi-Quellcode:

procedure Tform1.scandir(mypath: string);
var
   path : string;
   Predicate : function  (const Path: string; const SearchRec: TSearchRec): boolean;
   begin
     if Path=extractfilepath(Savedialog12.filename) then Abort;
   end;
   
Begin
    try
       for Path in TDirectory.GetFiles( mypath,'*.*',TSearchOption.soAllDirectories,Predicate)  do
         begin
           Listbox2.Items.Add(Path);
           Memo15.Lines.Add(Path);
         end;

    except
      on E: EAbort do
        begin
        // canceled ...
        writelogmemo('Read all aborded ! ');
        end;     
     end;   
end;

Mein Call in hörere Routine:

Delphi-Quellcode:

Begin
    listbox2.Clear;
    memo15.Clear;

    mypath:=extractfilepath(savedialog12.filename)+extractfilepath(stringreplace(
      stringreplace(risfn,'/','\',[rfreplaceall]),'internal-pdf:\\','',[rfreplaceall]));
    writelogmemo('PLEASE WAIT: Reading Files form: '+mypath);

    scandir(mypath);

    writelogmemo('Read all Files done: Count: '+inttostr(Memo15.Lines.count));
end;