- 博客(10)
- 资源 (8)
- 收藏
- 关注
原创 控制小数位的另一种方法
利用Str这个函数可以很灵活的来控制小数位,例:它会进行四舍五入var s:string; value : double;begin value := 25.367; str(value:0:2,s); self.caption := s;
2006-11-30 17:46:00 761
原创 从DLL中返回一个接口对象
从DLL中返回一个接口对象添加一个Unit单元把类的对外要用到的自定义类型以及接口对象的声明都写上,比如单元名称:unitMyInterface ISendEmail = interface(IInterface) function getEmailType: TEmailType; function getPassWord_pop3: WideString;
2006-11-18 09:33:00 1784
原创 拖动窗体
拖动窗体 ReleaseCapture; SendMessage(Handle,WM_SYSCOMMAND,$f012,0); 示例:procedure TForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; SendMessage(Handle,WM_
2006-11-13 15:52:00 622
原创 得到任务栏的高度
当Form.BorderStyle = bsNone时,最大化会把任务栏给盖住 procedure TForm1.InImage3DblClick(Sender: TObject);begin if TForm(TImage(Sender).parent).WindowState=wsMaximized then begin TForm(TImage(Sender).Parent)
2006-11-13 15:49:00 914
转载 窗口自己激活自己
const LSFW_LOCK = 1; LSFW_UNLOCK = 2; function LockSetForegroundWindow(uLockCode: DWORD): BOOL; stdcall;var Form1: TForm1;implementation function LockSetForegroundWindow; external user3
2006-11-13 13:28:00 2335
原创 解决:不能用163发邮件,用pop3收邮件显示乱码
收发邮件程序:新建一个工程1.解决163不能发信 从C:/Program Files/Borland/Delphi7/Source/Indy目录中找到IdSMTP.pas 将SendCmd(RSET); 注释掉,重新编译,然后覆盖 1.1 C:/Program Files/Borland/Delphi7/Source/Indy中的IdSMTP.pas 1.2 C:/Pr
2006-11-08 17:38:00 4377
转载 DBGridEh自动适应列宽
自动调整列的宽度function DBGridRecordSize(mColumn: TColumnEh): Boolean;{ 返回记录数据网格列显示最大宽度是否成功 }begin Result := False; if not Assigned(mColumn.Field) then Exit; mColumn.Field.Tag := Max(mColumn.Field.Tag, T
2006-11-04 16:16:00 3654
原创 EhLib实现自动编号功能
先进行以下设置DBGridEh1.SumList.active := true;DBGridEh1.SumList.VirtualRecords := true;然后增加一列,不要关联字段增加以下代码procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Co
2006-11-03 17:58:00 1938 1
原创 保存数据时,发生截断字符的解决方法
保存数据时,发生截断字符的解决方法:关于在SQL Server 存储过程中判断的一点发现在进行Insert into 进行添加数据时,如果单用 @@ERROR 进行判断是不准确的。如果发生了输入信息超过了字段所定义的长度时,用 @@ERROR 尤其是在进行主从表添加时,如果这个错误发生在细表当中,这时就会产生很奇怪的情况,主表的单号是正确产生了,但是一看细表确没有信息。也没有相应的提示。在存储
2006-11-03 11:02:00 2189
原创 使用SQL Server 2000 设计数据库时会产生的设计错误
使用SQL Server 2000 设计数据库时会产生的设计错误在一个表内不能有多个varchar(8000) 或者 nvarchar(4000) 的字段。只能有一个因为,在SQL Server 中行是按页来进行存储的。一个页是8K,一行数据是不能拆分成多个页进行存储。解决的办法有:1. 拆分成多个表。2. 使用Text字段。Text是可以存储2G的。
2006-11-03 10:48:00 708
symbian 请取手机 IMSI的小工具代码
2011-11-08
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人