- 博客(3)
- 资源 (1)
- 收藏
- 关注
原创 Delphi 写入注册表的方法
使用RegOpenKeyEx 写入 procedure TForm1.regSelf;var hdKey:hkey; lpFileName:array[0..255] of char; nSize:integer;begin nSize:=256; GetModuleFileName(0,lpFileName,nSize); if(RegOpenKeyEx
2007-06-20 11:08:00 1067
原创 Delphi 字符串中末位是双字节字符的处理(避免最后一位为乱码)
当在报表里显示,或文本里显示字符串时,由于长度有限从而要切掉一部分字符,保留前边的,当串中同时包含单字节和双字节字符时,在切掉串后可能会在末位出现乱码,由于把末位的双字节字符切成了单字节找成的需要使用 mbLeadByte 函数来判断用法如下Len := Length(astr); if Len >= 20 then //只显示20个字符 begin i
2007-06-20 10:40:00 1174
原创 Delphi 中加入的SQL如何动态的处理串中的单撇号
如 : 原串在 Edit1.Text中修改后的串在 Edit2.Text中 var astr,bstr,cstr:string;begin astr:=Edit1.Text; bstr:=+; cstr:=stringreplace(astr,,bstr,[rfReplaceAll]); edit2.text:=cstr;end;
2007-06-20 09:22:00 700
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人