绿水青山777 - 博客园

2020年2月11日

摘要： RichViewEdit的技巧收集原创一剑平江湖最后发布于2010-09-17 17:09:00 阅读数 1855 收藏展开这些天一直在研究richviewedit,只是对其有关设置段落对齐的方式不解，今天上午终于将其解开。原来是在richstyle中将段落格式设置好，再在richviewedit 阅读全文

posted @ 2020-02-11 17:43 绿水青山777 阅读(339) 评论(0) 推荐(0) 编辑

delphi流操作

摘要： Delphi 1 把字符串直接保存为文件的方法 2 将文件直接作为字符串读出的方法 3 把字符串转化为内存流的方法 4 把内存流转化为字符串的方法代码如下： function StringToFile(mString: string; mFileName: TFileName): Boolean; 阅读全文

posted @ 2020-02-11 17:15 绿水青山777 阅读(252) 评论(0) 推荐(0) 编辑

ODAC 组件支持 Oracle 8 的 BLOB 和 CLOB 数据类型

摘要： ODAC 组件支持 Oracle 8 的 BLOB 和 CLOB 数据类型。你可以使用 TOraQuery 组件来获取 LOB 字段的值，使用同样的方法，你也可以获取 LONG 或 LONG ROW 字段。当你需要使用 SQL DML 及 PL/SQL 语句存取这些字段时，你就会发现 LOB 数据阅读全文

posted @ 2020-02-11 15:27 绿水青山777 阅读(188) 评论(0) 推荐(0) 编辑

2020年1月19日

虚线转不得闲

摘要： procedure DrawVirtualLine(Cvs: TCanvas;FromP,ToP: TPoint);var i: integer; Xl: Single; x,y: Integer;begin Cvs.MoveTo(FromP.x,FromP.y); if FromP.x = ToP 阅读全文

posted @ 2020-01-19 15:37 绿水青山777 阅读(101) 评论(0) 推荐(0) 编辑

2020年1月18日

一个队列类的实现转

摘要：一个队列类的实现(比delphi自带的速度快70倍) 测试结果实现的代码 unit sfContnrs; interface {$DEFINE MULTI_THREAD_QUEUE} //线程安全版本，如果不需要线程安全，请注释掉此行代码 {$IFDEF MULTI_THREAD_QUEUE}us 阅读全文

posted @ 2020-01-18 08:51 绿水青山777 阅读(202) 评论(0) 推荐(0) 编辑

2020年1月16日

stringgrid to execl

摘要： NativeExcel procedure Tsave.CopySGDataToExcel(Target: TStringGrid;FileName: string);variCount, jCount: Integer;XLApp: Variant;Sheet: Variant;beginScre 阅读全文

posted @ 2020-01-16 16:13 绿水青山777 阅读(190) 评论(0) 推荐(0) 编辑

TcxCheckComboBox items不能大于64

摘要：只要设置编辑框的Properties.EditValueFormat的值为除了cvfInteger以外的任意值即可。后者（cfvInteger）会让编辑框把它的控件值表示为所勾选项目的二进制组合。每个选项代表一个2的N次方的整数值。也就是选项的相关整数值为1、2、4、8、16或其它。控件的值就是这些阅读全文

posted @ 2020-01-16 15:56 绿水青山777 阅读(365) 评论(0) 推荐(0) 编辑

2020年1月15日

奇淫怪巧之给Delphi的PrintDialog增加一个页码选定范围打印的Edit 转

摘要：奇淫怪巧之给Delphi的PrintDialog增加一个页码选定范围打印的Edit 在Delphi中使用PrintDialog打印对话框的时候，这个控件有三个选项，就是PrintRang那个属性的三个选项，其中有一个选项三，让我们自定义选择页码范围来打印。但是比较蛋疼的是，这个地方选中了之后啥子效果阅读全文

posted @ 2020-01-15 12:00 绿水青山777 阅读(321) 评论(0) 推荐(0) 编辑

2020年1月14日

Internal error: URW3537

摘要：项目，增加了一个单元后，经常在第二次编译时出现 Internal error: URW3537的错误：原因：主要是type ＝ function 的原因，常出现与dll调用解决方法： 1、全部编译 comiple all 2、把type ＝function 移动到最开始的type 处；阅读全文

posted @ 2020-01-14 16:02 绿水青山777 阅读(272) 评论(0) 推荐(0) 编辑

AddObject 释放问题

摘要： delphi 中TStringList 通过function AddObject(const S: string; AObject: TObject): Integer; 方法添加了一个对象，请问我在调用Clear 方法的时候该对象有没有被释放 object里存的只是指向对象的指针，clear只是把阅读全文

posted @ 2020-01-14 09:22 绿水青山777 阅读(236) 评论(0) 推荐(0) 编辑

面朝大海，春暖花开。

公告