[DELPHI] Szukanie plikow

[zad]

jak wyszukac w katalogu np. wszytskie pliki .exe ale tylko te ktore maja abc w nazwie?

[Maxoff]

Wpisz w wyszukiwarce abc*.exe albo *abc*.exe (zależy czym szukasz). Możesz także wyszukać wszystkie, które mają abc a później przefiltrować wynik (np wyświetlić po rozszerzeniach). Sposobów jest kilka

[zad]

Code: Select all

s:=edit1.text; // dir
deletefile(s+'\abc*.exe);

i dalem pozniej showmessage zeby wiedziec co zrobi i kasuje a plik dalej jest na dysku

[Maxoff]

DeleteFile nie obsługuje symboli wieloznaczych (czy jak to się nazywa, chodzi o *). Jeśli chcesz skasować wszystkie pliki abc*.exe, to zrób to tak:

Code: Select all

procedure DeleteAll(strDirectory,strMask:string);
var F:TSearchRec;
    nResult:integer;
begin
  nResult:=FindFirst(strDirectory+'\'+strMask,faReadOnly+faArchive,F);
  while (nResult=0) do
    begin
      DeleteFile(strDirectory+'\'+F.Name);
      nResult:=FindNext(F);
    end;
  FindClose(F);
end;

Powinno zadziałać.