- 博客(15)
- 资源 (1)
- 收藏
- 关注
原创 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 1003
原创 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
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人