5,389
社区成员
发帖
与我相关
我的任务
分享
private
procedure Getaddress(Sender: TField; var Text: String;DisplayText: Boolean);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Getaddress(Sender: TField; var Text: String;DisplayText: Boolean);
begin
Text:=Sender.AsString;
end;
procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
ADOQuery1.FieldByName('address').OnGetText:=Getaddress;
end;