随笔档案「2004年4月」 - cjsh

刘艺新作：Thinking in Patten with Delphi

摘要：今天试读了一下刘老师的新作“Thinking in Patten with Delphi”，这本书写得非常好，让我更加深入了解设计模式和COM+的开发，大家可以到刘老师的网站(http://www.liu-yi.net/)下载试读。明天就是五一节了，祝博客园的各位网友五一节快了。阅读全文

posted @ 2004-04-30 19:44 cjsh 阅读(1155) 评论(0) 推荐(0)

如何在TEdit中将键盘输入的英文单引号'变成中文单引号 ’

摘要：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);var CurText: String; CurPos, CurLng: integer;begin if key ='''' then begin key := #0; CurText := TEdit(Sender).Text; CurPos ... 阅读全文

posted @ 2004-04-16 13:18 cjsh 阅读(1029) 评论(0) 推荐(0)

输入“\”或“.”的时候弹出选择对话框，让你选择？

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; ListBox1: TListBox; procedure Memo1K... 阅读全文

posted @ 2004-04-16 13:15 cjsh 阅读(903) 评论(0) 推荐(0)

Delphi调试断点无效的解决方法

摘要：如果在设计状态下设置了断点，在运行后出现如图所示的无效断点，请检查“Project\Options\Compiler\Debug Information”选项是否被选中。如果其它的单元还是出现无效断点，请任意修改该单元并重新编译运行。阅读全文

posted @ 2004-04-12 18:18 cjsh 阅读(4660) 评论(3) 推荐(0)

选择外部程序中指定的选项页

摘要：{------------------------------------------------------------------------------- 过程名: TabCtrlSetItemIndex 作者: cjsh(wjh_wy@163.com) 日期: 2004-2-4 功能: 选择外部程序中指定的选项页参数: aTitle: String; ... 阅读全文

posted @ 2004-04-04 19:58 cjsh 阅读(721) 评论(0) 推荐(0)

软件开发过程及岗位职责

摘要：http://www.cnuml.com/myarticle/softdevprocess.htm 阅读全文

posted @ 2004-04-03 13:05 cjsh 阅读(1791) 评论(1) 推荐(0)

Format函数的详细中文帮助

摘要：function Format(const Format: string; const Args: array of const): string; Format字符串说明： "%" [index ":"] ["-"] [width] ["." prec] type (1) 格式化字符串必须以%开头 (2) [index ":"] 索引指的是Args参数列表中要显示的每一项的序号。比如：A... 阅读全文

posted @ 2004-04-03 08:29 cjsh 阅读(2957) 评论(0) 推荐(0)

Simple Application Framework for VCL

摘要：http://www.devexpress.com/?section=/bestpractices/SAP-VCL 阅读全文

posted @ 2004-04-02 21:03 cjsh 阅读(826) 评论(0) 推荐(0)

检查字符串中是否包含英文

摘要：//检查字符串中是否包含英文function CheckEn(AEn: String): Boolean;var ans : AnsiString; wis : WideString; i, anslng, wislng: integer;begin Result := False; ans := AnsiString(AEn); wis := WideString(AEn); for i... 阅读全文

posted @ 2004-04-02 18:53 cjsh 阅读(892) 评论(0) 推荐(0)

如何提高两个String相加的速度

摘要：StringA := '';LenA := 0;MemLen := 10*1024;Setlength(StringA, MemoLen);While not Query1.Eof dobegin StringB := Query1.Fieldbyname('AField').AsStrimg; LenB := Length(StringB); if (LenA+LenB)>MemLen ... 阅读全文

posted @ 2004-04-02 13:42 cjsh 阅读(1081) 评论(0) 推荐(0)