Проверка всех файлов в текущей директории

[_-Re@l-_]

Собственно, проблема. Мне нужно проверить расширение всех файлов директории, и если оно равно .rte, то удалить этот файл. Вопрос: как можно проверить все файлы? Т.е. как нибудь так(псевдокод):

for i:=1 to FilesCount('c:\словарь\') do
begin
        if ExtractFileExt(FindNext(...)) = '.rte' then Erase(F);
end;

[ArtGrek]

var
  fn: TSearchRec; //хранит характеристики наиденого фаила
  Finds: integer;
begin
  FindFirst(маска фаила: String, тип фаила'fsAniFile', fn );
  while Finds =0 do
  begin
    ...
    Finds:= FindNext(fn);
    Continue
  end;
end;  

так ты провериш все фаилы, потом проверяеш последние символи после . у fn.Name

[_-Re@l-_]

Да уже понял, спасибо, ArtGrek.

 FindFirst(маска фаила: String, тип фаила'fsAniFile', fn );

Вот возникли непонятки, поподробней....
Если делать так,

FindFirst('словарь\','fsAniFile',fn )

Не катит.И без кавычек тоже.

[spamer]

Так что ли:

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
begin
 if FindFirst('C:\test\*.*', faAnyFile, sr) = 0 then
  begin
    repeat
      if ExtractFileExt('C:\test\' + sr.Name) = '.rte' then
        DeleteFile('C:\test\' + sr.Name);
    until FindNext(sr) <> 0;
  FindClose(sr);
 end;
end;

[ArtGrek]

ну да, именно так)

[Аватар]

var sr: TSearchRec;
    i,j: Integer;
    xNames: array of String;
begin
  i:=FindFirst('C:\test\*.rte',faAnyFile,sr);
  j:=0;
  while i=0 do begin
    if sr.Attr and faDirectory=0 then begin
      Inc(j);
      SetLength(xNames,j);
      xNames[j-1]:=sr.Name;
    end;
    i:=FindNext(sr);
  end;
  FindClose(sr);
  for i:=0 to j-1 do DeleteFile('C:\test\'+xNames[i]);
  SetLength(xNames,0);
end;

[GunSmoker]

'C:\test\*.rte'

Не надо так делать. А то потом файлов недосчитаетесь.

http://www.transl-gunsmoker.ru/2010/...firstfile.html

[Аватар]

Получается, что после фильтра по маске еще и дополнительную проверку нужно делать. Для меня это новость. Век живи , век учись... Интересно, диалоги открытия при работе с маской тоже подобную особенность имеют?

[GunSmoker]

Смотря какие диалоги. (используют ли они FindFirstFile или нет).

Но, по большому счёту, так фильтруют почти все.

[ArtGrek]

Сообщение от spamer

Так что ли:

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
begin
 if FindFirst('C:\test\*.*', faAnyFile, sr) = 0 then
  begin
    repeat
      if ExtractFileExt('C:\test\' + sr.Name) = '.rte' then
        DeleteFile('C:\test\' + sr.Name);
    until FindNext(sr) = 0;
  FindClose(sr);
 end;
end;

иначе после проверки первого фаила цыкл закончица