![](https://img-blog.csdnimg.cn/20201014180756923.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
1.Delphi 版
文章平均质量分 72
yongyong001
这个作者很懒,什么都没留下…
展开
-
【整理】进制转换
1.HexToBin() 十六进制转换二进制 所在单元:ClassesDelphi语法:function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer描述:调用HexToBin函数转换十六进制字符串到相应的二进制值。Text是一个表示十六进制值的字符串。Buffer返回转换后的二进制结果值。BufferSize表示Buffer的大原创 2005-06-27 11:52:00 · 2798 阅读 · 0 评论 -
【原创】清空目录(附源码)
删除目录,必须要保证该目录为空,即不能存在任何文件和子目录,才能删除该目录,否则删除不掉该目录。以下代码就是用来清空目录的,删除一个目录里的所有文件包括子目录。使用了递归调用。procedure ClearDir(path: string);var FSearchRec: TSearchRec; FindResult: shortint;begin FindResult :原创 2005-05-21 23:35:00 · 1622 阅读 · 0 评论 -
【整理】控件透明
设置Richedit背景透明,效果还可以,但是设置Memo和Edit等时效果不是很理想。代码来源与CSDN社区。提供两种方法,其实两种方法大同小异。第一种方法 RichEdit1.Brush.Style := bsClear; SetWindowLong(RichEdit1.Handle,GWL_EXSTYLE,GetWindowLong(RichEdit1.Handle, GWL_EXSTY原创 2005-06-14 23:37:00 · 1685 阅读 · 0 评论