поиск

[Lonix]

Как сделать так чтобы при нажатии на кнопку программа начала искать папку к примеру windows, а после нахождения написала путь этой папки в edit или memo?

[Umen]

используй findfirst + findnext + поиск по форуму

[RSLoader]

В Edit1 пишешь где искать, в Edit2 пишешь что искать.

procedure Find(Dir:string);
var
  SR:TSearchRec;
begin
  if Dir[Length(Dir)]<>'\' then Dir:=Dir+'\';
  if FindFirst(Dir+'*.',faDirectory,SR)=0 then
  repeat
    if SR.Name[1]<>'.' then
    begin
      if SR.Name=Form1.Edit2.Text then
        Form1.Memo1.Lines.Add(Dir+SR.Name);
      find(Dir+SR.Name+'\');
    end;
  until FindNext(SR)<>0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Find(Edit1.Text);
end;