Работа с кодом

[zmey31313]

Уважаемые программисты. Приветствую вас у меня возникла проблема с кодом программы, код написан с ошибками я взял его с одного из учебников по Делфи, и чёт эту рекурсию не могу понять, и убрать в коде ошибки, и если можно сделать покороче код. Заранье благодарен.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtr, XPMan;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
FileName: string;
cDir: string;
n: integer;

procedure Find;
var
SearchRec: TSearchRec;
begin
GetDir(0,cDir);
if cDir[length(cDir)] <> n then
cDir := cDir + '\';
if FindFirst(FileName, faArchive, SearchRec) = 0
then
repeat
if (SearchRec.Attr and faAnyFile) = SearchRec.Attr
then
begin
Form1.Memo1.Lines.Add(cDir + SearchRec.Name);
n := n + 1;
end;
until FindNext(SearchRec) <> 0;
if FindFirst('*', faDirectory, SearchRec) = 0 then
repeat
if (SearchRec.Attr and faDirectory) = SearchRec.Attr then
begin
if SearchRec.Name[1] <> '.' then
begin
ChDir(SearchRec.Name);
Find;
ChDir('..');
end;
end;
until FindNext(SearchRec) <> 0;
end;

function GetPath(mes: string):string;
var
Root: string;
pwRoot : PWideChar; Dir: string;
begin
Root := '';
GetMem(pwRoot, (Length(Root)+1) * 2);
pwRoot := StringToWideChar(Root, pwRoot, MAX_PATH*2);
if SelectDirectory(mes, pwRoot, Dir) then
if length(Dir) =2
then GetPath := Dir+'\'
else GetPath := Dir
else
GetPath := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Label4.Caption := '';
FileName := Edit1.Text; .
cDir := Edit2.Text;
n:=0;
ChDir(cDir);
Find;
if n = 0 then
ShowMessage('Файлов, удовлетворяющих критерию поиска нет.')
else
Label4.Caption := 'Найдено файлов:' + IntToStr(n);
end;

procedure TForm1.Button2Click (Sender: TObject);
var
Path: string;
begin
Path := GetPath('Выберите папку');
if Path <> '' then
Edit2.Text := Path;
end;
end.

И кстате в uses что значит FileCtr.

[mihali4]

Читаем правила, оформляем код, как положено.

[Stilet]

zmey31313

А на какой строке то ошибки всплывают?

И кстате в uses что значит FileCtr.

вообще-тотам модули указываются, но простотам ошибка нужно писать - FileCtrl

[zmey31313]

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

А на какой строке то ошибки всплывают?

Они там множественные. И кстате код можно как нибудь по короче сделать?

[quit]

Этот код из DelphiWorld на сколько я знаю, я его разбирал и работал с ним...
кидайте тексты ошибок, тогда будем Вам помогать

[zmey31313]

Ошибка возникала в

    if cDir[length(cDir)] <> n then

Всё я убрал ошибку, просьба, если возможно уменьшете код и пришлите.

[Stilet]

А зачем его уменьшать? Работает и пусть себе работает.
К тому же ты ТЗ на этот код не дал, х. его з. что он должен делать.