参数的输入

Question

做了个函数来显示数据到 TRichEdit上
procedure QueryView(strSql: string;var OutRichEdit: TRichEdit);在参数输入有些问题
我输入 QueryView(format('select SJZDName from SJZD where SJZDID=''%s'' ',[StrName]),RichEdit1); //RichEdit1是一个TRichEdit类控件,这样可以但是我现在想做个循环,将是窗体里是TRichEdit类的控件里全显示出来
for i:=0 to self.ControlCount-1 do
 if (self.Controls[i] is TRichEdit) then
 QueryView(format('select SJZDName from SJZD where SJZDID=''%s'' ',[StrName]),self.Controls[i] as TRichEdit);参数 OutRichEdit 用 self.Controls[i] as TRichEdit 编译有错误提示

Answer 1

定义一个缓冲变量即可
var
  C: TRichEdit;
begin
  C := self.Controls[i] as TRichEdit;
  QueryView(format('select SJZDName from SJZD where SJZDID=''%s'' ',['strname']), C);
end;另外,没有必要用var 定义RichEdit形参

Answer 2

procedure QueryView(strSql: string;var OutRichEdit: TRichEdit); 
去掉var
procedure QueryView(strSql: string;OutRichEdit: TRichEdit);