![](https://img-blog.csdnimg.cn/20201014180756919.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi学习记录
EricTsui
这个作者很懒,什么都没留下…
展开
-
在delphi中实现密码框“大写锁定打开”的提示
<br />在登录windows时,如果大写锁定打开,且焦点处于密码输入框中,会出现气泡提示信息:“大写锁定打开 保持大写锁定打开可能会使你错误输入密码……”。<br />实现方式:<br /> <br />将edit控件的PasswChar设置成*,并在单元里面加入 uses XPMan。<br /><br />原创 2010-06-29 20:57:00 · 3880 阅读 · 1 评论 -
delphi edit 让密码变成点
注意:这里不支持全角字符以及汉字,也就是这里面的值只能1字节! 如果要实现类似XP圆点的话 可以把文本框Font设置成WingDings,再将PasswordChar设置成"="就会出现圆点的 注意:PasswordChar的掩码是按照字体会调整转载 2010-07-05 19:52:00 · 3144 阅读 · 0 评论 -
Delphi7 中TStringList的Delimiter DelimitedText有BUG,字符串分割有问题
var sl: TStringList; str: string; i: Integer;begin str := 'aa,b b,cc,dd'; sl := TStringList.Create; sl.Delimiter := ','; sl.DelimitedText := str; for i := 0 to sl.Count - 1 do ShowMessage(sl[i]); FreeAndNil(sl);原创 2010-07-01 16:13:00 · 6787 阅读 · 1 评论 -
Delphi根据不同分隔符获取字符串内容
<br />function GetFieldValue(separator:Char;strLine: string; nNum: Integer): string;var Strs :TStrings; ResultStr:string;begin Strs := TStringList.Create; strs.Delimiter := separator; Strs.DelimitedText := strLine; if nNum > Strs.Cou原创 2010-06-30 20:07:00 · 5232 阅读 · 0 评论 -
"Borland license information was found,but it is not valid for delphi." 的解决方法
现象:启动Delphi 7时出现如下提示:Borland license information was found,but it is not valid for delphi.原因:注册文件损坏。解决:1) Delete the file: C:/documents and settings//.borland/registry.slm 2) Run c:/program files/borland/delphi7/bin/D7Reg.exe 3) Click next... 4) Open转载 2010-06-30 13:45:00 · 2516 阅读 · 0 评论 -
简单的Delphi字符串加密解密函数
<br />const XorKey: array[0..7] of Byte = ($B2, $09, $BB, $55, $93, $6D, $44, $47); //字符串加密用function Enc(Str: string): string; //字符加密函數 這是用的一個異或加密var i, j: Integer;begin Result := ''; j := 0; for i := 1 to Length(Str) do be转载 2010-06-30 20:00:00 · 1415 阅读 · 0 评论 -
字符串与二进制数之间的互相转换
<br />将一个字符串转为二进制,再从二进制转为原字符串。 把字符串(可含中文字符)转为二进制数的函数:ConvertStrToBin();把二进制数转换为字符串的函数:ConvertBinToStr()。 以下两个函数亦可以对包含有中文字符的字符串进行处理,逆转时亦可正常转为中文。Function ConvertStrToBin(Value : string):string;//把字符串转化为二进制数var tempHex : string[2]; i : inte转载 2010-06-30 20:14:00 · 11139 阅读 · 0 评论 -
Delphi 删除或清空一个目录(包含多级)
<br />//use ShellApi;function DelDirectory(const Source: string): boolean;var fo: TSHFILEOPSTRUCT;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELETE; pFrom := PChar(Source + #0);原创 2010-06-30 20:11:00 · 1683 阅读 · 0 评论 -
QuickReport报表Prepare之后造成内存泄露问题的解决方法
在我们的项目开发中,经常用到QuickReport报表,而且很多报表的页脚都要提示 “页码:1/3”的信息,为了得到总页码,我们要在报表Preview之前加上Prepare,才能得到总页码,但是会造成内存泄露,(在工程的单元前加FastMM4可以获得内存泄露的信息)这个问题一直都得不到很好的解决,经过在网上搜索,得到了解决,方法如下:首先:在delphi中将该报表设置成不自动创建,如下图:然后打开报表的代码如下编写即可: RepSGD := TRepSGD.Create(原创 2010-06-30 13:21:00 · 1558 阅读 · 0 评论 -
delphi中DateTimePicker控件同时输入日期和时间
<br />将DateTimePicker的Format属性中加入日期格式设成 'yyyy-MM-dd HH:mm',注意大小写,<br />将kind设置为dtkTime即可,可以在每次Form onShow时将DateTimePicker1.DateTime := Now<br /> <br /><br /><br />原创 2010-06-24 12:32:00 · 16718 阅读 · 0 评论