能解释下这句话 SetReValueToText

Question

 SetReValueToText 这句话什么意思？

Answer 1

看看这个函数在什么地方应用了，如果他是一个属性的set方法看看有没有get方法

Answer 2

就是把ADO查询控件里记录值显示到文本控件里，是一个自定的，就像下面一样procedure SetReValueToText;
begin
 Form4.Edit1.Text:=Form4.ADOQuery1.FieldByName('供应商编号').AsString;
  Form4.Edit2.Text:=Form4.ADOQuery1.FieldByName('供应商名称').AsString;
   Form4.Edit3.Text:=Form4.ADOQuery1.FieldByName('主要联系人').AsString;
    Form4.Edit4.Text:=Form4.ADOQuery1.FieldByName('联系方式1').AsString;
     Form4.Edit5.Text:=Form4.ADOQuery1.FieldByName('联系方式2').AsString;
      Form4.Edit6.Text:=Form4.ADOQuery1.FieldByName('联系方式3').AsString;
      Form4.Edit7.Text:=Form4.ADOQuery1.FieldByName('供应商地址').AsString;
      Form4.Edit8.Text:=Form4.ADOQuery1.FieldByName('备注').AsString;
end;procedure TForm4.btnFirstClick(Sender: TObject);
begin
    SELF.ADOQuery1.First;
 SetReValueToText;
end;