关于TADOQuery的OnGetText

TADOQuery这个控件用的不少，但是用的不深，这次有个项目中需要显示数据的曲线，数据库文件中存的是16进制字符串，我本来想把数据从数据库中取出，再处理一下用TListView来显示，但是感觉这样有点多余，就研究了一下，发现里面有个OnGetText很好用，直接可以把指定字段的内容进行处理，转成10进制的字符串再显示：

procedure TMainFrm.adrqQueryTIMEDIFFGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
var
    Str: String;
begin
    Str := Sender.AsString;

    if Str <> '' then Text := IntToStr(StrToInteger(Str));
end;