问个小问题。希望高手解答

Question

unit unGetFolderContents;interfaceuses SysUtils,Classes,Forms;type
   TFileFoundEvent = procedure (Sender: TObject; Directory: String;
       SearchRec: TSearchRec; var Stop : Boolean) of object;
  TGetFolderContents = class(TThread)
  private
    FOnFound: TFileFoundEvent;以下为代码procedure TGetFolderContents.DoFound;
begin
     if Assigned(FOnFound) then
     begin
      Delete(SRoot,1,Length(FRoot));
      FOnFound(Self, SRoot, Found,  FTerminated);
     end;
end;请问，我如何才能得到 SRoot ,Found ,FTerminated 的信息

Answer 1

SRoot ,Found ,FTerminated ？
声明在什么地方？

Answer 2

let SRoot ,Found ,FTerminated become the thread's readonly perptoy .make get interface.

Answer 3

把鼠标放到关键词上，按住ctrl,出现下划线，点鼠标，如果没有转到定义的地方，就是没有引用这些单元