自己收集的几个比较实用的字符串函数(LeftStr,MidStr,RightStr,Reverse,LastPos) 没什么可说的，自己看啦 //从右边取 function RightStr (Const Str: String; Size: Word): String; begin if Size ...
Delphi所提供的TStatusBar可视化控件可以让我们快速地实现状态条。然而Delphi自带的TStatusBar创建的状态条仅能显示文字。本文介绍如何在Delphi程序中创建更为漂亮的StatusBar。要创建类似Netscape风格的状态条，现有的Delphi控件是无能为力的了。为了让窗口状态条能包含非文本内容，我们需要对现有的TStatusBar控件加以改进。在TStatusBar控件
不停的往Memo中输出文本信息，满1000行就clear运行大概一分多钟就会出错，捕捉到的出错信息如下：Outof system resourcesTScrollingStyleHook.TScrollWindow:句柄无效TScrollingStyleHook.TScrollWindow:拒绝访问 ...
Delphi 判断字符串是否是数字、大小字母、小写字母、纯字母组成 //判断字符串是否是数字 ，返回布尔值 function IsNumberic(Vaule:String):Boolean; var i:integer; begin result:=true; //设置返回值为 是（真） Vaul ...
临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别 TRtlCriticalSection 是一个结构体，在windows单元中定义；是InitializeCriticalSection，EnterCriticalSection，Leave ...
Controls Application (the variable not a type) Forms Beep SysUtils or Windows (different functions) CGID_EXPLORER ShlObj CN_BASE Controls CoInitialize ...
Delphi 语法基础[1] 循环语句：While、Repeat、For 1、While：执行While循环体时 ，先执行循环条件，判断若为真，则执行循环体，否则，跳出循环 While(循环条件) do //循环体； 2、Repeat //“直到型循环”: Repeat //循环体； Until（循 ...
【问题原因】 该问题是由于微软从 Windows 8 开始，GetKeyboadLayouts 函数不再有效，而 VCL 中仍然是通过该方法获取输入法列表造成的。希望下个版本的 Delphi/C++ Builder 能够解决。 【解决办法】 如果是 Win8+，则自己从注册表读，如果是Win 7 等 ...
Delphi盒子 www.2ccc.com 2Pascal-新时代的Pascal http://www.2pascal.com WeDelphi http://www.WeDelphi.com 新大富翁论坛 http://www.dfwlt.com/forum.php 万一的博客：http://ww ...
function selectdir: string; //如果取消取返回为空，否则返回选中的路径 var Info: TBrowseInfo; IDList: pItemIDList; Buffer: PChar; begin result := ''; Buffer := StrAlloc(MA ...
