ADO中字段的GetText用法

 

XH：序号字段，计算性质的字段。

procedure TfrmTingTaiInfo.ADOQitemXHGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  inherited;
  Text := IntToStr(Sender.DataSet.RecNo);
end;