dds2014的博客

delphi 货币数字转大写

XE5 自带皮肤功能，在选择了皮肤功能后，字体默认显示，这样用户设置的颜色就失去了效果；如果TLabel 等控件的字体颜色要显示为别的颜色，不想用默认的，就需要取消 TLabel->StyleElements->seFont 的选择；如果TPanel要修改背景颜色，那么就需要取消 TPanel->StyleElements->seClient 的选择。...

原代码：lblOperName.Caption := BaseParam.OperName;OperName定义：TBaseParam = Record OperName: String[20]; //操作员......end;编译提示：W1057 Implicit string cast from 'ShortString' to 'string'解决方法：lblOperName.Caption := String(BaseParam.Ope...

原代码： //锁定程序本身所使用的日期时间格式 LongDateFormat := 'yyyy-MM-dd'; ShortDateFormat := 'yyyy-MM-dd'; LongTimeFormat := 'hh:mm:ss'; ShortTimeFormat := 'hh:mm:ss'; DateSeparator := '-'; TimeSeparator := ':';编译提示：E2003 Undeclared identifier: 'LongDat...

原代码：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 ...

最近在把一些应用中的项目从D7 升级到 XE5，碰到了不少问题，先是把部分第三方控件改为标准控件，这步比较简单，控件修改完成后在XE5中打开项目，编译，结果是一堆Warning，其中还有几个Error，现把问题记录下来，方便查看。原代码：ExitDocimasy(BaseParam.CommProtocol, PAnsiChar((arAddr[iIndex] as TEdit).Text), Lengt...

最近写了个串口调试工具软件，虽然网上很多这类软件，但是自己写可以随时修改，比较方便，所以随手写了下面这个软件：在考虑显示上下数据的控件的时候试了好几个控件，但是都不好用，后来选了TRichEdit控件，但是TRihEdit字体颜色显示的时候也走了些弯路，有时候该显示红色的变了黑色，修改后，到目前为止没有出现颜色错误或不改的状态。具体代码如下：procedure TMainFrm.AddMemo(Buf: Pointer; nDataLen: Integer);var Str: Stri..