에디터에서 기입한 디렉토리를(D:또는C:)를 메모콤포넌트에 디렉토리별로

나타내고,나타난 디렉토리를 클릭했을때,그 안의 디렉토리들이 또 나타나는,

말 그대로 디렉토리 검색을하는 프로그램을 만들고있는데,파라미터를

어디에,써야될지 잘모르겠습니다.제 소스가 뭐가 잘못됐는지,꼭 부탁드릴께요..



제 코딩입니다..파라미터를 써야될것같은데 어떻게 해야할지..정말초보입니다.

부끄럽지만,꼭 부탁할께요.



procedure TForm1.ListFiles(D, Name, SearchName: String);

var

SR: TSearchRec;

begin

if D[Length(D)] <> '' then D := D + '';



Listdir('D:','c:','E:');

if FindFirst(D+name, faDirectory, SR) = 0 then

begin

repeat

if ((Sr.Attr and faDirectory) = faDirectory) and (SR.Name[1]<>'.')then

Memo1.Lines.Add(D+SR.Name);

until (FindNext(SR) <> 0);

end;

FindClose(SR);

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

Memo1.Clear;

ListFiles('D:','c:','E:',edit1.Name);

Showmessage('End');

end;



end.