妖の僧的 Delphi 博客

摘要： function RGB2TColor(const R, G, B: Byte): Integer;begin // convert hexa-decimal values to RGB Result := R + G shl 8 + B shl 16;end;procedure TColor2RG... 阅读全文

摘要： 运算符包括：@ not ^ * / div mod and shl shr as + - or xor = > = in is其中 @ not ^ 是一元运算符; + - 有时是一元,有时是二元; 其他都是二元运算符.一元运算符在运算数的前面, ^ 例外,也可以在后面,如: P^; 二元运算符在运... 阅读全文

摘要： Object Pascal 使用ASCII 字符集，包括A-Z、a-z、0-9、以及其它标准字符，字母是大小写无关.单字符特殊符号：# $ & ' ( ) * + , - . / : ; @ [ ] ^ { }组合字符特殊符号：(* *) (. .) .. // := = 其中:‘[]’相当于‘(... 阅读全文

摘要： {...}(*...*)//...//相同的注释不能嵌套.//若 $ 符紧跟在 { 或 (* 之后，则注释是编译器指示字。//例如 {$WARNINGS OFF} 就是告诉编译器别产生警告信息。//改变注释文字的颜色和字体//菜单 -> Tools -> Editor Options -> Delp... 阅读全文

摘要： unit Unit1;interface {接口部分开始}uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forward关键字} {接口部分结... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Butto... 阅读全文

摘要： function GetFileSize(const FileName: String): LongInt;var SearchRec: TSearchRec;begin if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0... 阅读全文

摘要： // ================================================================ // 遍历某个文件夹及子文件夹下某种文件, // 使用说明 // _GetFileList(ListBox1.Items, 'c:\', '.doc'); // _... 阅读全文

摘要： //本文完全摘自万一博客,俺是纯纯滴新手,还木弄明白咋回事呢//先贴这,日后再来分析它//我在Delphi2007里贴了个*.pas版的有需要的童鞋直接取用(希望帮到的童鞋能前来详细讲解下该单元)//------------------------------------------------分割... 阅读全文

摘要： //还是先上万一老师的原代码//隐藏与显示菜单Self.Menu := nil; {隐藏菜单}Self.Menu := MainMenu1; {显示菜单}//初一看到代码,我有点抓不到感觉的意思...//我觉得我得自己写一个,万老师这个自当是绝佳的参考资料...unit MainFrm;interf... 阅读全文