2008年11月_沉醉西亭

原创 array of const

{A common error when working with PChars is to store a local variable in a data structure, or return it as a value. When your routine ends, the PChar disappears because it is a pointer to memory,

2008-11-28 10:46:00 1001

原创 TStrings做函数返回值类型的错误

//我写了一个函数，返回值是TStrings类型的，函数如下： function func(s:string):tstrings;var strS:Tstringlist;begin strS := TStringList.Create; strS.insert(0,00000); result := strS; strS.free;end

2008-11-26 15:58:00 894

原创 StrPCopy带来的麻烦

写了下面的代码：var i,msg:integer; charArray:array[0..50] of Char;begin for i := 0 to Listbox1.Items.Count - 1 do begin StrPcopy(charArray,是否写入卡号：+ListBox1.Items[i]+ ? 按“否”进行下一个

2008-11-25 17:40:00 4208 2

原创 RzCheckTree中的CheckBox选择

1. 判断状态: if RzCheckTree1.Selected.StateIndex = 2 then //则为选中状态 else if RzCheckTree1.Selected.StateIndex = 1 then //则为未选中状态 else if RzCheckTree1.

2008-11-19 10:41:00 4475

原创 Delphi 的字符及字符串 - Char、AnsiChar、WideChar、PChar、PAnsiChar、PWideChar

Delphi有三种类型的字符： •AnsiChar这是标准的1字节的ANSI字符，程序员都对它比较熟悉。 •WideChar这是2字节的Unicode字符。 •Char在目前相当于AnsiChar，但在Delphi以后版本中相当于WideChar. 记住因为一个字符在长度上并不表示一个字节，所以不能在应用程序中对字符长度进行硬编码，而应该使用Si

2008-11-18 11:50:00 1118

原创字符串、字符数组、字符指针

//字符串与字符数组 var arr: array[0..5] of Char; str: string;begin {可以把字符串常量直接赋给字符数组; 但超界不行} arr := Delphi; ShowMessage(arr); {Delphi} {可以把字符数组直接赋给字符串变量} str := arr; ShowMessage(str); {Delphi} {但不能

2008-11-18 11:47:00 764

原创关于Pchar(摘录)

一个Label的Caption当作String直接加上下标去相应位置的字符，但是却报错，说不兼容，请问Delphi中的字符串类型有什么不同啊。谢谢各位大侠！建议先搜索一下离线论坛! 先解释你的疑惑：一个字符串(String类型的)变量是可以通过脚标的方式访问指定位置的字符的，但是 Label 的 Caption 是一个属性而不是一个简单的字符串变量，因此你不能像使用字符串变量一样

2008-11-17 15:42:00 1088

原创 VCLSkin4.22有Bug?

在窗口间互相调用时会弹出莫名奇妙的错误，大部分是内存访问错误，还碰到过一次EPrivilege类型的错误，我的程序简单得要命，哪里会有指针操作！去掉皮肤以后所有的都正常。有人说，先不加载皮肤运行之后再加载就没有问题了，但是在我这里问题依旧。盼哪个高手能解释一下。

2008-11-11 17:07:00 648

原创 KeyDown事件中定义组合键

if (ssAlt in Shift) and (key = ord(Q)) then edit1.setfocus;

2008-11-07 16:11:00 2256

原创 combobox怎样根据item内容来决定显示哪一个item

Combobox1.itemindex := combobox1.items.indexof(男);就是一个函数IndexOf()。返回项目字符串的序号

2008-11-07 14:49:00 990

原创 MSNPopUp使用方法

很简单的： MSNPopUp1.ClosePopUps; MSNPopUp1.Title := 提示标题; MSNPopUp1.Text := 提示内容; MSNPopUp1.TimeOut := 3;//停顿时间，3秒结束后会自动关闭 MSNPopUp1.ShowPopUp;

2008-11-07 11:46:00 1634

转载 SQL操作全集

SQL操作全集下列语句部分是Mssql语句，不可以在access中使用。 SQL分类： DDL—数据定义语言(CREATE，ALTER，DROP，DECLARE) DML—数据操纵语言(SELECT，DELETE，UPDATE，INSERT) DCL—数据控制语言(GRANT，REVOKE，COMMIT，ROLLBACK) 首先,简要介绍基础语句： 1、说明：创建数据库 CREATE

2008-11-06 15:59:00 589

原创 Parameter not found的出现的原因

with dataM.Q_xfgl_dhjf do begin close; sql.Clear; sql.Add(insert into jfdh(jfdh_id,jfdh_hybh,jfdh_dhjf,jfdh_bz,jfdh_sj,jfdh_czr) ); sql.Add(values(:jfdh_id,:jfdh_hybh,:

2008-11-06 15:06:00 18977 6

原创 Delphi中的Label显示字符串不全的解决办法

一般不会用label显示太多的内容,比如几十字,如果字数多的话可以改为memo.将label的autosize设置为false,然后把label拉长到估计可以包括你想显示的内容即可.

2008-11-04 18:18:00 2465

原创写sql语句时不要使用重复参数

在写程序时,会员累计消费需要+消费额,会员余额需要-消费额,我就用了同一个参数代替消费额,结果碰了一鼻子灰.让我头疼了几乎一下午,最后还是项目经理指点迷津才得以解决.原来的错误代码: with dataM.Q_xfgl_jz_gxhy do //更改会员消费次数、消费累计金额、卡内余额等信息 begin close; sql.Clear;

2008-11-03 17:47:00 727

Hank's Techblog