wozengcong的专栏

1. Randomfunction Random [ ( Range: Integer) ];：产生一个0<=X<Range的随机数。例如：Random(10); //随机产生一个大于等于0小于10的数使用Random之前，要先用Randomize过程或RandSeed函数来初始化随机数产生器。 2. RandomFromfunction RandomFro...

procedure TForm1.FormCreate(Sender: TObject);var str: string;begin str := '万一'; ShowMessageFmt('%d, %d', [Length(str), ByteLength(str)]); {2,4}end;

MessageBox对话框 输入控件的   ImeName属性把输入法去掉就默认为英文输入了　MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。　1、函数原型及参数　function Message

Dec //将例程中的参数值递减1或一个特定的值，其中特定值可在第二个可选参数中定义 Inc //将例程中的参数值增加1或一个特定的值 Odd //如果参数为奇数返回真 Pred //根据参数在其数据类型定义中的序列，返回参数值的前驱值 Succ //返回参数值的后继值 Ord //返回参数值在其数据类型值集合中的序号 Chr //取得 AscII

1. 自动随机出题　　你也许有这样的经历：孩子刚上学，数学老师要你每天给出10或者20道算术题，作为你孩子的家庭作业，你是否有点烦？别着急，电脑可帮你忙！在Delphi中，有一随机函数，是这样定义的：function Random [ ( Range: Integer) ];其中，参数Range为一整数，该函数返回值也为整数，其范围为：00　　下面的过程fo

//delphi 获取文件所在路径ExtractFileDrive ：返回完整文件名中的驱动器，如"C:"ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:/test/"ExtractFileDir：返回完整文件名中的路径，最后不带“/” ,如"C:/test"ExtractFileName:返回完整文件名中的文件名称 (带扩展名)，如"myte

String转换到PChar不是自动的,他们之间的不同点导致他们的转换存在问题。1. String是引用计数的，而PChar不是2. 赋值给String是数据的拷贝，而PChar是指向数据的指针。3. String是空止符结尾(空止符结尾指以#0结尾)，并包含有字符串的长度。而PChar是简单的NULL结尾。把PChar转换为String可用StrPas(PChar)，把S

1.Absfunction Abs(X);：返回指定数值的绝对值。例如：[delphi] view plaincopyAbs(-15);  //结果为15   2. Ceil、FloorCeilfunction Ceil(const X: Extended):Integer;：按正无穷大方向四舍五入一个变量

1. AnsiStrLower、AnsiStrUpperAnsiStrLowerfunction AnsiStrLower(Str: PChar): PChar;：将空终止字符串中的所有字符转换为小写字符。[delphi] view plaincopyAnsiStrLower('ABCDEF');  //结果为abcdef  

1.UpperCasefunction UpperCase(const S: string): string;：将字符串转换为大写，其返回的string类型[delphi] view plaincopy{按回车时字符串变成大写}  procedure TForm1.v_EditChrKeyPress(Sender: TObject; va

1.ForceDirectories、GetCurrentDir、GetDir、SetCurrentDirForceDirectoriesfunction ForceDirectories(Dir: string): Boolean;：在指定的目录中创建一个目录。其中参数Dir为创建目录的全名，必须包括上级目录。如创建成功则返回true；否则返回false。[del

1. AssignFile、EraseAssignFileprocedure AssignFile(var F; FileName: string);：给文件变量连接一个外部文件名。这里需要注意的是AssignFile不能用在已打开的文件上。[delphi] view plaincopyprocedure TForm1.Button1

1.LeftStr（返回从字符串首开始指定长度的子字符串）function LeftStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;function LeftStr(const AText: WideString; const ACount: Integer): WideString;

注意：windows的屏幕左上点为基点，也即原点，向右x轴正向，向下y轴正向注意：区分两个概念 (假设显示器1024*768)             屏幕-左上点：1024*768的屏幕(显示器)，屏幕(显示器)的左上点 就是 (0,0)             窗口-左上点：我们双击了notepad图标，它弹出了Notepad窗口，窗口的大小是600 * 400

问题来源: http://www.cnblogs.com/del/archive/2008/11/14/1120015.html#1370413StrUtils 单元和 Math 单元 分别有一个 IfThen 函数, 举例:unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes,

StrUtils.DupeString - 反复字符串举例:--------------------------------------------------------------------------------vars: string;begins := 'Delphi';s := DupeString(s,3);ShowMessage(s); //D

delphi的取整函数round、trunc、ceil和floor 1.Round（四舍六入五留双） 功能说明：对一个实数进行四舍五入。(按照银行家算法)例：var    i, j: Integer;begin    i := Round(1.5);// i等于2    j := Round

1. Delphi中的全局函数//要点: 需要给其他单元调用, 必须在 interface 声明, 但必须在 uses 区后面 unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type

IsPathDelimiter(const S: string; Index: Integer): Boolean; 功能 返回字符串S中指定位置Index上是否是一个路径分隔符说明 IsPathDelimiter('C:\Windows', 3) = True参考 const SysUtils.PathDelim;function SysUtils.ByteType例子 Chec

function GetCaseSensitiveFileName(const FileName: string; RootPath: string = ”): string;function isPathCanUseNow(const PathOrDir: string; const Default: Boolean = True): Boolean;function GetSDCard

delphi中和除法相关的算术运算符有：div、mod和符号“\”，下面分别对他们的作用、操作数类型和返回值类型进行一下介绍：div：对2个整数进行除，取商，操作数需是integer类型，返回值也是integer。\：2个数进行除，取商，操作数可以为integer和real，返回值为real类型。mod：取2个数相除的余数，操作数文integer类型，返回值为integer。看到这

//判断是否是数字function IsNumeric(sDestStr: string): Boolean;//简写多余汉字function SimplifyWord(sWord: string; iMaxLen: Integer): string;//读写取注册表中的字符串值function ReadRegStr(sDWName, KeyName: string; SvrBZ: TS

获得系统当前时间    本例中主要应用了FormatDateTime函数，此函数主要用于将日期时间格式化为指定的字符串。利用该函数可以输出许多形式的时间格式。    程序运行结果如图6.1所示主要代码如下：    procedure TForm1.Button1Click(Sender: TObject);    begin     Label1.Caption

1、基础知识简介：ModalResult是指一个模式窗体（form.showmodal）的返回值，一般用于相应窗体上按钮的ModalResult属性；                       显示完窗体（关闭）后，会返回此属性预设的值做为返回值。 2、该属性可以使用的参数（默认值是mrNone）：该属性可以设置为mrOk 、mrCancel...等等mr

Showmodal是个函数，Show是个过程1.Showmodal:概念:    当你调用一个窗口用SHOWMODAL时,当这个窗口显示出来后,程序不会继续自己执行,而是根据你对这个窗口的操作来执行,只有关闭了这个窗口后才会执行。属性:FormStyle改为fsNormal，visible改为false2.Show:概念:     S

1、CompareMem(@guid1, @guid2, SizeOf(TGUID)) 最开始时想到的方法。 查看Delphi中TGUID的定义可以看到TGUID实际上是一个结构。对于结构的比较来说最方便的就是内存直接比较了。 TGUID = packed record D1: LongWord; D2: Word; D3: Word; D4: array[

一、字符转换函数1、ord(input[i])返回字符表达式 input 左端起第 I 字符的ASCII 码值。2、CHAR()将ASCII 码转换为字符。如果没有输入0 ~ 255 之间的ASCII 码值，CHAR（） 返回NULL 。3、LOWER()和UPPER()LOWER()将字符串全部转为小写；UPPER()将字符串全部转为大写。4、STR()把数值型数

1. Incprocedure Inc(var X [ ; N: Longint ] );：整数自加N。其中，X为变量；N为要增加的长度。例如：[delphi] view plaincopyD1 := 1;  Inc(D1);  //结果为2  Inc(D1,2);  //D1= D1 +2 结果为3  2. Odd

1.strprocedure Str(X [: Width [: Decimals ]]; var S);：格式化一个字符串，并将结果返回给一个变量。With表示该参数设置转换后的字符串宽度；Decimal用于设置小数位数；S用于存储转换后的字符串。在实际使用中，可以用str来替换IntToStr。[delphi] view plaincopy

1. Randomfunction Random [ ( Range: Integer) ];：产生一个0[delphi] view plaincopyRandom(10);  //随机产生一个大于等于0小于10的数  使用Random之前，要先用Randomize过程或RandSeed函数来初始化随机数产生器。 

function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;rfReplaceAll：全部替换rfIgnoreCase：忽略大小写For Example：var    aStr: String;begin    aStr := '

procedure TForm1.btn1Click(Sender: TObject);var s: string;begin s := 'abcdefghijkilkjasldnbG'; if s[1]='a' then ShowMessage('a 在开始位置'); if s[Length(s)]='G' then ShowMessage('G 在最后一位');

ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。     一、ShellExecute常用方法　　     有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并不是太复杂。下面举例说明它的用法。 1.开始一个新的应用程序　　She

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxLookAndFeels, Acti

ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并不是太复杂。下面举例说明它的用法。开始一个新的应用程序 ShellExecute(Handle, 'open', PChar('c:\test\a

uses ShlObj;function SelectFolderDialog(const Handle: integer; const Caption: string;const InitFolder: WideString; var SelectedFolder: string): boolean;varBInfo: _browseinfo;Buffer: array[0..MAX

delphi函数trim()与trunc()区别：一个对字符串操作一个对数字操作procedure TForm1.FormCreate(Sender: TObject);varf : double;beginf := 1.50;showmessage(IntToStr(Trunc(f))); // 1 截取showmessage(IntToStr(Round(f))); // 2

在Delphi XE4中测试用Or,In,CharInSet三种方式，实现判断一个字符是否在一个字符数组中。作者提供了代码：procedure TForm7.FormCreate(Sender: TObject);const Max = 200000000;var S : AnsiString; PBuffer : PByte; Coun

inc有两种用法:一个是inc(integer)，就是加1比如i := 100;inc(i);就是i变为101另一个是inc(integer,integer)就是加n比如i:=100;inc(i,50);就是i变成150---------------------------------Dec是递减函数i:=100;dec(i);i就变成99了,如果是de

uses IOUtils, Vcl.Styles, vcl.Themes; procedure TForm1.FormCreate(Sender: TObject); var dir, fileName, styleName: string; begin //VCL 的样式文件 *.vsf //在 X:\Program Files\Embarcadero\RAD Studio\9