Listview schläft ein

[HomerGER]

Datei suchen

Delphi-Quellcode:

//##############################################################################
//##############################################################################
//Dateien Suchen
//##############################################################################
//##############################################################################
//******************************************************************************
//Dateien suchen
Procedure Dateien_Suchen_GU(var filelist_sl : TStringList; laufwerk_s : string; mask_s : string);
var
SR: TSearchRec;
begin
    //Auf Backlash prüfewn
    if (AnsiLastChar(laufwerk_s)^ <> '\') then
    begin
        laufwerk_s := laufwerk_s + '\';
    end;

    //Alle Ordner
    if FindFirst(laufwerk_s + '*.*', faAnyFile, SR) = 0 then
        try
            repeat
                if (SR.Attr and faDirectory = faDirectory) then
                begin
                    if ((SR.Name <> '.') and (SR.Name <> '..')) then
                    begin
                        Dateien_Suchen_GU(filelist_sl, laufwerk_s + SR.Name, mask_s);
                    end;
                end;
            until FindNext(SR) <> 0;
        finally
        FindClose(SR);
    end;

    //Alle Dateien
    if FindFirst(laufwerk_s + mask_s, faAnyFile, SR) = 0 then
    try
        repeat
            if (SR.Attr and faDirectory <> faDirectory) then
            begin
                filelist_sl.Add(laufwerk_s + SR.Name);
            end;
        until FindNext(SR) <> 0;
    finally
        FindClose(SR);
    end;
end;