Problem - søgning af fil(er)

Ok efter slet tilføj denne linge
sleep (1000);

Det for den til a vent lide for den går vider

Elle slet them Tread for sig selv

//Zardic

du kan lave et event der kaldes når komponenten er færdig. Handler koden til eventet læser så den næste filtype i listen, og sætter en ny søgning i gang

Drop din Comp. og bruge denne kode, du udvider bare OkToAddFile med de ext. du vil finde

----------
function OkToAddFile( aFileName : String ) : Boolean;
begin
  // Check File Ext. Her
  Result := Pos(\'.~\',ExtractFileExt(aFileName)) <> 0;
end;

procedure TForm1.ScanFiles( const aPath : String; Subs : Boolean; const L : TStrings );
VAR
  S  : TSearchRec;
  CPath : String;
begin
  ChDir(aPath);
  GetDir(0,CPath);

  if FindFirst(IncludeTrailingBackslash(CPath)+\'*.*\',faANYFILE,S) = 0 then
  repeat
      if ( S.Attr and faSysFile = 0 ) and ( S.Attr and faDIRECTORY = 0 ) and
        ( S.Attr and faVolumeID = 0 ) and ( S.Name <> \'.\' ) and ( S.Name <> \'..\' ) then
      begin
        // Do the stoff here
        if OkToAddFile(S.FindData.cFileName) then
          L.AddObject(IncludeTrailingBackslash(CPath)+S.FindData.cFileName,TObject(S.Size));
      end;
  until FindNext(S) <> 0;
  FindClose(S);

  if Subs and ( FindFirst(\'*.*\',faDIRECTORY,S) = 0 ) then
  repeat
      if ( S.Attr and faDIRECTORY <> 0 ) and ( S.Name <> \'.\' ) and ( S.Name <> \'..\' ) then
      begin
        ScanFiles(IncludeTrailingBackslash(CPath)+S.Name,Subs,L);
        ChDir(\'..\');
      end;
  until FindNext(S) <> 0;
  FindClose(S);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  ScanFiles(\'E:\\\',TRUE,Memo1.Lines);
end;

--------

/Martin

IncludeTrailingBackslash(CPath)+\'*.*\'
delphi 4 melder fejl her.

ORDET: IncludeTrailingBackslash

Den hved ikke hvad det betyder.
 

Jeg kan ikke huske om det er en standard procedure, ellers er den nem at lave selv:

procedure IncludeTrailingBackslash(var Path: string);
begin
  if Path[Length(Path)] <> \'\\\' then
    Path := Path + \'\\\';
end;

dl >> Det er en D5 ting så du må lige lave nico22\'s rutine

/Martin

jeg har fundet ud af det.
Men jeg kunne få martinlind\'s kode til at virke.
Men han får nu point fordi koden kunne give mig inspiration.