序言
这周末,在完善自己的idea,但是在读取数据库时发现,数据库中的Text字段显示的是(WIDEMEMO),并不是真实的数据,全部被掩盖了(如下图),通过网络查找资料,还好解决了这个问题。
方案
通过查找资料,解决办法也挺简单的,将上述两个字段处理一下就可以了。选中FDQuery控件,这个控件是用来查询数据库的,在Event面板中AfterOpen双击,添加如下代码:
procedure TuMainForm.GetText(Sender: TField; var Text: String;DisplayText: Boolean);
begin
Text:=Sender.AsString;
end;
procedure TuMainForm.FDQuery_1AfterOpen(DataSet: TDataSet);
begin
FDQuery_1.FieldByName('Name').OnGetText := GetText;
FDQuery_1.FieldByName('Path').OnGetText := GetText;
end;
将这两个字段处理一下,处理之后是String类型。效果如下:
上面代码的大概意思是执行查询之后,将查询的结果中的Name和Path字段做一下AsString类型转换。
结语
目前还有一下小的问题需要修复一下,暂时自己使用并修改BUG。
如有错误,敬请指出,感谢指正! —2020-06-14 19:08:28
最新评论
我想请问下。您这部署后能够上传附件图片吗?我按照您的方式部署后。能运行。但是无法上传附件,图片。
感谢教程,但是我安装后无法上传附件。图片什么的都上传不了。您这可以吗
你这个能够添加附件图片吗?我怎么无法上传图片附件呢。。
这个软件有bug的,客户端windows有些键不能用如逗号、句号
没有收到邮件通知
我的评论通知貌似坏掉了,定位一下问题
测试一下重新部署后的邮件功能
居然看到自己公司的MIB库,诚惶诚恐