- 博客(5)
- 收藏
- 关注
RSS订阅原创 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
662
原创 Delphi 内存映射实现两个进程间通信
写入方代码 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type PShareMem = ^TShareMem; TShareMem = Record id:strin...
2020-03-10 14:18:03
906
原创 实现获取 按照0-9,a-z,A-Z的顺序规则获取2位字符（转码）
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,StrUtils ; type TForm1 = class(TForm) btn4: TButton; procedur...
2020-03-10 13:29:03
469
原创 Oracle脚本中 set define off
脚本中的"&"表示替代变量，SQLplus运行时会提示输入。 在脚本开头添加set define off 可将"&"作为普通字符&输入。 setdefineoff 表示关闭替代变量功能 setdefineon 表示开启替代变量功能 ...
2020-03-04 16:38:50
1773
原创 adodataset的EnableBCD属性
在使用AOD读取数据库得时候发现dbgrideh有时无法展示出8位小数，特查了下资料，埋坑如下 将adodataset的EnableBCD属性设为false即可 如果EnableBCD设为true,则adDecimalandadNumeric字段从数据库读出来后放在TBCDField类中，这种类表示数值比较精确，而如果EnableBCD为false则所有的adDecimal\ad...
2020-02-12 10:30:46
401
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人