- 博客(16)
- 收藏
- 关注
RSS订阅原创 关于TADOQuery的OnGetText
TADOQuery这个控件用的不少，但是用的不深，这次有个项目中需要显示数据的曲线，数据库文件中存的是16进制字符串，我本来想把数据从数据库中取出，再处理一下用TListView来显示，但是感觉这样有点多余，就研究了一下，发现里面有个OnGetText很好用，直接可以把指定字段的内容进行处理，转成10进制的字符串再显示：varbeginend;
2023-07-17 17:25:14
89
原创 Delphi 7移植到Delphi XE5碰到及解决的问题 （5）
XE5 自带皮肤功能，在选择了皮肤功能后，字体默认显示，这样用户设置的颜色就失去了效果；如果TLabel 等控件的字体颜色要显示为别的颜色，不想用默认的，就需要取消 TLabel->StyleElements->seFont 的选择；如果TPanel要修改背景颜色，那么就需要取消 TPanel->StyleElements->seClient 的选择。...
2022-02-28 17:05:48
244
原创 Delphi 7移植到Delphi XE5碰到及解决的问题 （4）
原代码：lblOperName.Caption := BaseParam.OperName;OperName定义：TBaseParam = Record OperName: String[20]; //操作员......end;编译提示：W1057 Implicit string cast from 'ShortString' to 'string'解决方法：lblOperName.Caption := String(BaseParam.Ope...
2022-02-28 11:37:34
203
原创 Delphi 7移植到Delphi XE5碰到及解决的问题 （3）
原代码： //锁定程序本身所使用的日期时间格式 LongDateFormat := 'yyyy-MM-dd'; ShortDateFormat := 'yyyy-MM-dd'; LongTimeFormat := 'hh:mm:ss'; ShortTimeFormat := 'hh:mm:ss'; DateSeparator := '-'; TimeSeparator := ':';编译提示：E2003 Undeclared identifier: 'LongDat...
2022-02-25 15:21:43
369
原创 Delphi 7移植到Delphi XE5碰到及解决的问题 （2）
原代码：if not (Key in ['0'..'9', #8]) thenbegin MessageBeep(0);end;编译提示：W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.解决方法：if not CharInSet(Key, ['0'..'9', #8]) thenbegin ...
2022-02-25 15:17:44
363
原创 Delphi 7移植到Delphi XE5碰到及解决的问题 （1）
最近在把一些应用中的项目从D7 升级到 XE5，碰到了不少问题，先是把部分第三方控件改为标准控件，这步比较简单，控件修改完成后在XE5中打开项目，编译，结果是一堆Warning，其中还有几个Error，现把问题记录下来，方便查看。原代码：ExitDocimasy(BaseParam.CommProtocol, PAnsiChar((arAddr[iIndex] as TEdit).Text), Lengt...
2022-02-25 15:10:16
369
原创 关于TRichEdit字体颜色控制
最近写了个串口调试工具软件，虽然网上很多这类软件，但是自己写可以随时修改，比较方便，所以随手写了下面这个软件：在考虑显示上下数据的控件的时候试了好几个控件，但是都不好用，后来选了TRichEdit控件，但是TRihEdit字体颜色显示的时候也走了些弯路，有时候该显示红色的变了黑色，修改后，到目前为止没有出现颜色错误或不改的状态。具体代码如下：procedure TMainFrm.AddMemo(Buf: Pointer; nDataLen: Integer);var Str: Stri..
2020-09-09 09:59:11
1018
原创 JDK安装后的环境配置
在https://www.oracle.com/technetwork/java/javase/downloads/index.html下载了JDK软件，安装完成后，配置环境变量：1、右击【我的电脑】，点击【属性】2、在出现的对话框中选择【高级系统设置】3、出现的对话框中选择【环境变量】4、新建名为”JAVA_HOME“的变量名，变量值为之前安装jdk的目录，例如本人的为”D:\Java...
2019-09-03 10:17:15
129
原创 21学通Python之十四网络编程
# 服务器端import socketHOST = socket.gethostname()PORT = 10888s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)s.bind((HOST, PORT))s.listen(1)conn, addr = s.accept()print('Client\'s Address...
2019-08-29 14:13:30
254
原创 PyCharm使用之设断点不出现红点的解决方法
在使用PyCharm设置断点的时候，我用了左键和Ctrl+F8都没有出现红点，网上查了一下也没人具体说起怎么解决，所以只能自己想办法解决：1、选中需要下断点的代码行，在行序号边上点鼠标右键：2、选Configure Gutter Icons：3、勾选Show gutter icons，点OK保存退出：4、再次点中要下断点的代码行，点鼠标左键：OK了^_^...
2019-08-24 13:25:17
3581
3
原创 学习Python之【实例6-4】
这段时间比较空闲，所以工作之余网上找了《21天学通Python》这本书来学习。书中的好多例子都有错误，不知道是不是印刷问题，所以记录一下：【实例6-4】演示了在类中调用类自身的方法和全局函数的实例，代码如下：def coord_chng(x,y): return (abs(x),abs(y))class Ant: def __int__(self, x=0, y=0):...
2019-08-03 11:00:10
321
2
原创 关于Delphi XE5中SHA1、SHA256、SHA384、SHA512、MD5的加密计算
一直用的D7，但是最近手头有个项目是跟WebService对接的，D7版本低了，调回的接口中没有接口函数，所以安装了一版Delphi XE5，试用了几天，还好用，但是研究的还不深。 项目对接中有个加密算法是SHA256的，所以在网上也找了相关的资料，自己写了一个，测试了几组数据，跟网上的SHA计算工具能对上，当前测试的数据不多。相关的计算函数如下：procedure TMainFrm....
2018-08-18 11:17:30
2635
原创 关于SPCOMM使用中碰到的问题
一台工控机，用了8个串口，2个程序A和B，每个控制4个串口，这A和B是一模一样的源代码，只是界面显示文字有差别，A和B各自控制的串口也是功能一样的，比如都有一个串口是接收主动上送的称数据，这个串口用的控件是SPCOMM。现在发现一个情况：A程序运行一切正常，而B程序过一段时间称数据就不刷新，我监控发现是OnReceiveData事件没有触发，在程序接收不到称数据的时候，我用串口监听程序看了
2016-09-26 10:57:34
745
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人