- 博客(5)
- 收藏
- 关注
原创 Delphi StringGrid 文字居中后出现文字重叠
文字居中的代码:procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);var s: String; R: TRect;begin with TStringGrid(Sender) do begin Canvas.FillRect(Rect); S := Cells[ACol,ARow];...
2020-09-24 15:25:18 484
原创 Delphi 内存映射实现两个进程间通信
写入方代码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type PShareMem = ^TShareMem; TShareMem = Record id:strin...
2020-03-10 14:18:03 628
原创 实现获取 按照0-9,a-z,A-Z的顺序规则获取2位字符(转码)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,StrUtils ;type TForm1 = class(TForm) btn4: TButton; procedur...
2020-03-10 13:29:03 379
原创 Oracle脚本中 set define off
脚本中的"&"表示替代变量,SQLplus运行时会提示输入。在脚本开头添加set define off 可将"&"作为普通字符&输入。setdefineoff 表示关闭替代变量功能setdefineon 表示开启替代变量功能...
2020-03-04 16:38:50 1598
原创 adodataset的EnableBCD属性
在使用AOD读取数据库得时候发现dbgrideh有时无法展示出8位小数,特查了下资料,埋坑如下将adodataset的EnableBCD属性设为false即可如果EnableBCD设为true,则adDecimalandadNumeric字段从数据库读出来后放在TBCDField类中,这种类表示数值比较精确,而如果EnableBCD为false则所有的adDecimal\ad...
2020-02-12 10:30:46 328
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人