Посчитать количество классов в программе

[evg_m]

      if extractfileext(sr.Name) = Searchext then

расширение МОЖЕТ быть записано не только строчными (pas), но и прописными(PAS), и даже их комбинацией(PaS).{чисто теоретически}
разделяющая точка тоже относится к расширению (.pas)

[jirtreck]

Благодарю за наводку, однако как не менял регистр теста, - не помогает, с точкой то же самое

[jirtreck]

Не понимаю сейчас в чем проблема, буду очень благодарен за подсказку.

[jirtreck]

Поменял строку

if FindFirst(SearchPath+'\'+Mask,faAnyfile,SR) <> 0 then

Все то же самое

[Alex11223]

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

Не понимаю сейчас в чем проблема

Про отладчик или отладочную печать слышали?

[jirtreck]

Ошибка была в первой строке. При вводе маски он автоматически заходил в подпапку, где не было файлов.

Однако сейчас все еще ничего не пишет в Мемо.

procedure ScanDir(SearchPath: string; SearchExt:string; List: TStrings);
var
Mask:string;
SR: TSearchRec;
begin
 
Mask:='*.*';
if FindFirst(SearchPath+'\',faAnyfile,SR) <> 0 then
begin
form1.edit1.text:=searchpath;
  repeat
    if (SR.Attr and faDirectory) = faDirectory then
    begin
      if (sr.Name <> '.') and (sr.Name <> '..') then
      ScanDir (Searchpath +'\'+ SR.Name ,SearchExt, List);
    end
    else
    begin
      if extractfileext(sr.Name) = Searchext then
      begin
      form1.edit1.Text:= sr.Name;
      List.Add(Searchpath+SR.Name);
      end;
    end
  until FindNext(SR) <> 0;
  FindClose(SR);
end;

[jirtreck]

Заработало

procedure ScanDir(SearchPath: string; SearchExt:string; List: TStrings);
var
Mask:string;
SR: TSearchRec;
begin

Mask:='*.*';
if FindFirst(SearchPath+'\'+Mask,faAnyfile,SR) = 0  then
begin
form1.edit1.text:=searchpath;
  repeat
    if (SR.Attr and faDirectory) = faDirectory then
    begin
      if (sr.Name <> '.') and (sr.Name <> '..') then
      ScanDir (Searchpath +'\'+ SR.Name ,SearchExt, List);
    end
    else
    begin
      if extractfileext(sr.Name) = Searchext then
      begin
      form1.edit1.Text:= sr.Name;
      List.Add(Searchpath+SR.Name);
      end;
    end
  until FindNext(SR) <> 0;
  FindClose(SR);

end;