随笔分类 -  Delphi

摘要：format('% * . * f',[10,4,num]);解析： 返回num变量格式化后的字符。整数位为10位，小数后为4位。例如：num=1234567890.123456，处理后为“1234567890.1234”的字符串。format函数，返回一个指定格式的字符。function Format(const Format: string; const Args: array of const): string;具体说明：const Fromat：string ：格式信息const Args： 数组。主要是格式信息比较麻烦。格式化信息主要有以下元素组成："%&q 阅读全文

摘要：会写delphi程序的人很多，会用断点调试的不少，但是会灵活使用断点属性进行调试的就不多了。哈哈。有感于一些新人不能灵活应用断点的属性设置，写一篇小文章给予帮助一下。下面让我来简单说一下：在代码编辑器中，设置断点后，按下【Ctrl+Alt+B】组合键，就会显示断点列表。选中需要设置的断点，按下鼠标右键，就会显示关联菜单，然后选择【Properties】。在弹出的窗口有以下一些内容：Filename ：断点所在的单元名称。无需改动。Line number：断点所在行号。无需改动。Condition：使断点生效的表达式，当表达式的计算结果为True，断点才会生效。表达式可以使用 该断点所在作用域内 阅读全文

摘要：本人习惯于将自己创建的对象放入到TStringList中，通常的释放代码都会写成如下：var sl:TStringList; i:Integer;begin sl:= TStringList.Create; try //do something here for i:=0 to sl.Count - 1 do begin sl.Objects[i].Free; end; sl.Clear; finally sl.Free; end;end;某天看见别人的释放代码如下： TUserObj(sl.Objects[i]).Free;其中TUserObj代表用户自定义的某个类。到底哪个是对的？两种方法 阅读全文

摘要：在窗体上添加两个按钮，简单代码如下。GetEnumValue（）超范围时返回-1.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,TypInfo;type TTestEnum=(teOne,teTwo,teThree); TForm1 = class(TForm) btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); proce 阅读全文

摘要：CnPack的脚本功能很强大，照着例子写了一小段代码，从一个文本文件每次读取一行，简答设置一下即可实现每次编译代码前都会弹出对话框显示英语句子。虽然功能简单，但是很好用呀，希望对爱好学习英语的程序员有帮助。代码如下：program ShowEnglishSentence;uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;procedure ShowSentence(const AStr:string);var sTemp:string;begin sTemp:=Trim(AStr); if 阅读全文