procedure TFormYYYYYY.BBtnXxxxLoad(Sender: TObject);
begin
with self.FdbgXxxx do
Begin
//if Qtb.IsEmpty then //Qtb就是内存表
if not self.BaseLoad then
exit;

before_set_text;

set_text(self.EXxxxid ,Qtb,'Xxxxid');
set_text(self.EXxxxname ,Qtb,'name');
set_text(self.EXxxxzonecode ,Qtb,'zonecode');
set_text(self.EXxxxphone ,Qtb,'phone');
set_text(self.EXxxxaddress ,Qtb,'address');
set_text(self.EXxxxwww ,Qtb,'www');
set_text(self.EXxxxlogo ,Qtb,'logoaddr');
set_text(self.EXxxxdatecreate ,Qtb,'builddate');
set_text(self.EXxxxdatemodify ,Qtb,'modifydate');
set_text(self.MXxxxinfo ,Qtb,'info');

after_set_text;

//其他字段特殊的代码处理

end;
end;

希望统一为：

procedure TFormYYYYYY.BBtnXxxxLoad(Sender: TObject);
begin
self.FdbgXxxx.dofield.Load;

//其他字段特殊的代码处理
end;