Я не знаю что уже и делать,не работает..программа запускается но при нажатие на кнопку должно выводится в memo список найденых файлов.
Но не выводит..
Код:
procedure TForm1.Button1Click(Sender: TObject);
var ser:TSearchRec;
StrDir:string;
begin
Memo1.Lines.Add(StrDir+ser.Name);
end;
end.
Не работает.