delphi语法
Delphi与C++的语法区别
Delphi与C++的语法区别目录∙Delphi永远没办法在栈上创建一个对象∙Delphi的构造函数更象是个类方法（静态成员函数）∙Delphi的析构函数中可以调用纯虚方法∙Delphi在构造对象时自动将成员变量清零∙Delphi构造函数中抛出异常会自动先调用析构函数∙Delphi简化了COM接口的AddRef、Release和QueryInterface一、Delphi永远没办法在栈上创建一个对象下面是一段常见的的Delphi代码，在过程的开头声明本过程所需要的全部局部变量：procedure Foo;varobj: TObject; //这句容易被C++程序员误会。
begin...end;C++程序员会以为obj这个变量就是TObject对象实例本身，会以为这一句是在栈上声明并构造了TObject类的一个对象实例，他们会与下面的C++代码混淆：void Foo(){ CObject obj;//这一句的确在栈上构造了CObject类的...//一个对象实例，并且将在离开Foo函数时自动析构它}牢记一点，在Delphi里，永远不可能在栈上构造一个对象，也永远不可能对一个对象进行值传递，程序员能看到的是“指向对象实例的指针”，简单地说“一切皆指针”，上例中obj其实就是一个“TObject类型的指针”，当它在栈上被声明的时候，它的值不可知（与C++一样），也没有任何对象被构造出来。
上述代码翻译成C++，基本上就是：void Foo(){CObject * obj;// 声明一个CObject类型的指针// 但没有任何对象被构造或与之关联...}作为一个佐证，在Delphi里，sizeof(TObject), sizeof(Self), sizeof(obj) 结果都是4，即一个32位指针的大小。
二、Delphi的构造函数更象是个类方法（静态成员函数）由于Delphi不允许在栈上构造对象，那么对象实例就只能创建在堆上，Delphi没有new关键字（倒有一个名为New的procedure），而是用一种有别于C++的语法来（在堆上）构造对象：procedure Foo;varobj: TObject; //obj本质上只是一个TObject类型的指针beginobj := TObject.Create; //在堆上构造一个TObject对象实例并将其地址赋值给objobj.Free; //令obj指向的对象析构end;与C++一样，在堆上构造的函数不会在离开作用域的时候被自动析构，所以在离开Foo这个过程之些，要调用TObject的Free方法来析构它。
delphi 位运算语法
not
按位否
就是取反的意思，真的非就是假,假的就是真的意思。
and
按位与
就是取和的意思，比如(性别=男and年龄>= 18 )这样表示一个成年男子的意思。
or
按位或
就是或者的意思,有一个条件为真就可以了(颜色=红色or颜色=黄色)表示红色可以,黄色也可以,两个都满足也可以。
xor
按位异或
两个数比较相同为假,不同为真,如0^0=00^1=1 1^0=1 1^1=0。
shl
按位左移
X := x shl 1二进制数向左移1位,尾部补1个零,相当于x:=x*2;
x := x shl 2二进制数向左移2位,尾部补2个零,相当于x:=x*4;
x := x shl n二进制数向左移n位,尾部补n个零,相当于x:=x*2^n;
shr
按位右移
x := x shr 1二进制数向右移1位,首部补1个零,相当于x:=x div 2;
x := x shr 2二进制数向右移2位,首部补2个零,相当于x:=x div 4;
x := shr n二进制数向右移n位,首部补n个零,相当于x:=x div (2^n);
第二章Delphi语法基础(语言结构)
procedure TForm1.FormCreate(Sender: TObject); const c=0.00001; var intcount:integer; lnfact:longint; result:single; begin result:=1; lnfact:=1; while 1/lnfact>=c do begin result:=result+1/lnfact; intcount:=intcount+1; lnfact:=lnfact*intcount; end; messagedlg('e='+floattostr(result),mtinformation,[MBOK],0); end;
Repeat Population := Population* (1+0.8/100); How_years :=How_years+1; Until Population>26; ShowMessage(FloatToStr(Population)); ShowMessage(IntToStr(How_years )); end; 例10 求两个正整数M和N的最大公约数。（采用辗转相除法）
●使用for …to 语句应注意： ①循环变量的初值、终值可以是表达式，也可是常量或变量； ②循环变量必须与初值、终值的数据类型相同，且只能是有序类型； ③循环变量必须在包含该循环的最内层程序块中声明它的类型；
④循环体可以是单个语句或复合语句； ⑤执行循环语句前，先计算初、终值，以此决定循环的次数和循 环变量的取值。循环的次数是（终值-初值）+1； ⑥循环体中不允许任何语句改变循环变量的值,即一旦声明循变的 值就不能改变； ⑦退出for 循环时，循环变量的值就会自动变成不确定的值，不能 再使用它； ⑧若循环变量的初值大于终值,循环体根本不能执行,除非使用 downto; 2、while…do语句 一般形式为： while 布尔表达 do 循环体； 特点：先判断，后执行； 例8 工程常数e的数学展开式为1+1/1！+1/2！+…+1/n!,要使e的计算 结果精确到0.00001,编写序代码如下：（可利用while的循环条件做 如下的设置：1/n!>=0.00001。）
Delphi基本语法格式和常用函数讲解
Delphi基本语法格式和常用函数分类：《Delphi中的进制转换(如hex与bin)》ShowMessage(Format('%d:%d', [pos, length(keys)])+':'+keys);Format('%d:%d:%x', [pos, key_len,byte(pchar(keys)[0])]) // 其中keys为string类型《delphi快捷键-和vim对应上的快捷键》delphi延时函数代码！Delphi文件操作函数Delphi关于多线程同步的一些方法,信号量,互斥量和临界区delphi轻松实现原子操作-CreateSemaphore获得Integer和DWord类型的最大值ShowMessage(IntToStr(High(Integer)));ShowMessage(IntToStr(High(DWord)));// delphi的sleep()就是一个ms毫秒级延时函数,但是使用sleep会导致程序短暂pendingprocedure TForm1.delay(MSecs: Integer);//延时函数，MSecs单位为毫秒(千分之1秒)var FirstTickCount, Now: Longint;beginif MSecs <> 0 then beginFirstTickCount := GetTickCount();repeatApplication.ProcessMessages;Now := GetTickCount();until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount); end;end;varwrite_semaphore:THandle;write_semaphore:=CreateSemaphore(0, 1, 1, nil);procedure TForm1.Button1Click(Sender: TObject);beginWaitForSingleObject(com.write_semaphore, INFINITE); // 返回值WAIT_TIMEOUT和WAIT_OBJECT_0ReleaseSemaphore(com.write_semaphore, 1, nil);end;var file_name:string;file_name:='c:\luther.gliethttp.txt';send_fd:=FileOpen(file_name, fmOpenRead or fmShareDenyWrite); FileWrite(com.log_fd, PChar(file_name)^, length(file_name));GetForegroundWindow找到xp操作系统上当前前景窗体句柄. GetActiveWindow 只是获取当前程序中(严格地说是线程中)被激活的窗口; GetForegroundWindow 是获取当前系统中被激活的窗口.《Delphi中FindWindow和FindWindowEx的语法和用法》《delphi获取操作系统已运行的所有窗口程序－如打开的所有记事本的标题》两个函数的级别不一样, 一个是线程级、一个是系统级.被激活的窗口不一定是顶层窗口(最上面的窗口).// 向当前占有焦点的控件发送剪切板粘帖指令if Edit1.Focused or Edit3.Focused or Edit4.Focused then SendMessage(Form1.ActiveControl.Handle, WM_PASTE, 0, 0);==================================char类型数组和string之间的使用以及bin数据转换为hex函数使用// 这是摘自Classes.pas库中的实现代码procedure BinToHex(Buffer, Text: PChar; BufSize: Integer); assembler; constConvert: array[0..15] of Char = '0123456789ABCDEF';varI: Integer;beginfor I := 0 to BufSize - 1 dobeginText[0] := Convert[Byte(Buffer[I]) shr 4];Text[1] := Convert[Byte(Buffer[I]) and $F];Inc(Text, 2);end;end;procedure TForm1.Button3Click(Sender: TObject); var strs:string;p:pchar;i,max:Integer;beginstrs:='abcd1234';max:=length(strs);p:=Pointer(strs);i:=0;while (i <= max) dobeginShowMessage(p[i]);Inc(i);end;end;procedure TForm1.Button4Click(Sender: TObject); var strs:string;hex:array of char;max:integer;hex_len:Integer;beginstrs:='你cd1234';max:=length(strs);hex_len:=2*max;//+1;SetLength(hex, hex_len);BinToHex(pointer(strs), pointer(hex), max);ShowMessage(inttostr(length(string(hex))));hex_len:=high(hex)+1;max:=hex_len shr 1;//div 2;ShowMessage(IntToStr(hex_len)+':'+inttostr(max));strs:='';SetLength(strs, max);HexToBin(pointer(hex), pointer(strs), hex_len);ShowMessage(strs);end;function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer procedure BinToHex(Buffer, Text: PChar; BufSize: Integer);function IntToHex(Value: Integer; Digits: Integer): string; overload; function StrToInt(const S: string): Integer;==================================Format('x=%d',[12]);//'x=12'//最普通Format('x=%3d',[12]);//'x=12'//指定宽度Format('x=%f',[12.0]);//'x=12.00'//浮点数Format('x=%.3f',[12.0]);//'x=12.000'//指定小数Format('x=%8.2f'[12.0])//'x=12.00';Format('x=%.*f',[5,12.0]);//'x=12.00000'//动态配置Format('x=%.5d',[12]);//'x=00012'//前面补充0Format('x=%.5x',[12]);//'x=0000C'//十六进制Format('x=%1:d%0:d',[12,13]);//'x=1312'//使用索引Format('x=%p',[nil]);//'x=00000000'//指针Format('x=%1.1e',[12.0]);//'x=1.2E+001'//科学记数法Format('x=%%',[]);//'x=%'//得到"%"S:=Format('%s%d',[S,I]);//S:=S+StrToInt(I);//连接字符串去除字符串中所有空格,字符串替换字符串str:=StringReplace(str, ' ', '', [rfReplaceAll]);functionStringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;数组和string字符串之间拷贝数据.var buf:array [0..63] of char;name:string;......name:=name+#13+#10+'hello!'+#13+#10+''; strpcopy(pchar(@buf),name);high(buf)取得数组最大值,此处为63low(buf)获得数组最小值,此处为0varstrs:TStringList;beginstrs:=TStringList.Create;strs.Delimiter:=' ';strs.DelimitedText:='I am a programer';strs[0]strs[1]等就是去除了所有空格的一个个单词了字符串string常用处理函数uses StrUtils;LeftStr(str, 3); // 读取最左边的3个字符RightStr(S, 3); // 读取最右边的3个字符Delete(str, 16, 1);Copy(str, 3, 4);还有MidStr用于中文拷贝,如:MidStr('电脑报', 1, 1); Insert('h', str, 2);LowerCase(str); // 将str变为小写UpperCase(str); // 将str变为大写Pos('Like', 'I Like Reading!'); // 查找Like的位置,此处为3,如果没有返回0Trim(str); // 删除头尾的所有空格TrimLeft(str);TrimRight(str);===================var S: String;arrText: array of Char; // 定义一个动态数组SetLength(S, 10); // 当设置后，S变量只能赋值长度为10的字符串。
delphi 位操作函数
delphi 位操作函数Delphi 位操作函数在Delphi编程中，位操作函数是一种非常重要且常用的函数，它们可以帮助我们对二进制数据进行各种位级别的操作。
本文将为大家介绍几个常用的Delphi位操作函数及其使用方法。
一、位操作函数简介位操作函数是一类用于处理位级数据的函数，它们可以对二进制数据的位进行读取、设置、清除和翻转等操作。
在Delphi中，位操作函数主要包括以下几个：1.1 TestBit函数TestBit函数主要用于检查指定位置上的位是否为1。
它的语法如下：function TestBit(const Value: Integer; Bit: Integer): Boolean;其中，Value是要检查的整数值，Bit是要检查的位的位置。
该函数返回一个Boolean值，如果指定位置上的位为1，则返回True；否则返回False。
1.2 SetBit函数SetBit函数用于将指定位置上的位设置为1。
它的语法如下：function SetBit(const Value: Integer; Bit: Integer): Integer;其中，Value是要设置的整数值，Bit是要设置的位的位置。
该函数返回一个新的整数值，其中指定位置上的位已被设置为1。
1.3 ClearBit函数ClearBit函数用于将指定位置上的位清除为0。
它的语法如下：function ClearBit(const Value: Integer; Bit: Integer): Integer;其中，Value是要清除的整数值，Bit是要清除的位的位置。
该函数返回一个新的整数值，其中指定位置上的位已被清除为0。
1.4 ToggleBit函数ToggleBit函数用于将指定位置上的位翻转，即从0变成1，或从1变成0。
它的语法如下：function ToggleBit(const Value: Integer; Bit: Integer): Integer;其中，Value是要翻转的整数值，Bit是要翻转的位的位置。
delphi substring 用法
delphi substring 用法在Delphi中，使用Substring函数可以从一个字符串中提取指定范围的子字符串。
此函数可以用于处理字符串的各种操作，如搜索、替换、截取等。
Substring的语法如下：```pascalfunction Substring(const S: string; StartIndex, Count: Integer): string;````S`是一个字符串，`StartIndex`是开始提取的索引，`Count`是要提取的字符数量。
提取出的子字符串将作为函数的返回值。
下面是几种使用Substring函数的示例用法：1. 提取子字符串```pascalvarS, SubStr: string;beginS := 'Hello, World!';// 从索引3开始提取5个字符SubStr := Substring(S, 3, 5); // 输出 'lo, W'ShowMessage(SubStr);end;```2. 搜索子字符串```pascalvarS, SubStr: string;Index: Integer;beginS := 'Hello, World!';// 在字符串中搜索子字符串 ', W' 的索引Index := Pos(', W', S);// 如果找到，则提取子字符串if Index > 0 thenbegin// 从索引 Index 开始提取至字符串末尾SubStr := Substring(S, Index, Length(S) - Index + 1); ShowMessage(SubStr);end;end;```3. 替换子字符串```pascalvarS, SubStr, NewSubStr: string;Index: Integer;beginS := 'Hello, World!';// 在字符串中搜索子字符串 'World'Index := Pos('World', S);// 如果找到，则替换为新的子字符串if Index > 0 thenbegin// 从索引 Index 开始提取至字符串末尾SubStr := Substring(S, Index, Length(S) - Index + 1);// 替换为新的子字符串 'Delphi'NewSubStr := 'Delphi';// 使用StringReplace函数进行替换S := StringReplace(S, SubStr, NewSubStr, []);ShowMessage(S);end;end;```4. 截取子字符串```pascalvarS, SubStr: string;beginS := 'Hello, World!';// 提取从索引7开始到字符串末尾的子字符串SubStr := Substring(S, 7, Length(S) - 6); // 输出 'World!'ShowMessage(SubStr);end;```这些示例演示了Substring函数的常见用法。
Delphi语法中的循环WHILE..DO和REPEAT..UNTIL
Edit1: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var odds,sum:integer; begin sum:=0; odds:=1; while odds<= strtoint(Edit1.Text) do begin sum:=sum+odds; odds:=odds+2; end; Showmessage(inttostr(sum)); end; procedure TForm1.Button2Click(Sender: TObject); var odds,sum:integer; begin sum:=0; odds:=1; Repeat sum:=sum+odds; odds:=odds+2; until odds > strtoint(Edit1.Text); Showmessage(inttostr(sum)); end; end.
while..do是条件先行，repeat..until是条件后行,所以repeat..unt来没什么难度，主 要还是有别的语言的基础吧，也主要是自己做多了面向对象的开发，总觉得Delphi7的IDE差微软的DOTNET级别的IDE远多了，用起来不是 很顺手。
Delphi语言语法基础 适用于初学者
Shortint -128 .. 127
1 有符号8位
Smallint -32768 .. 32767
2.3 数据类型
2.3.1 有序类型 有序类型定义一个有次序的数值集合，
除了它的第一个值以外，其它每个值都有一 个唯一的前驱值；除了最后一个外，其它每 个值都有一个唯一的后继值。并且，每个值 都有一个序数决定它在这个类型中的位置。
包括：整型、字符型、布尔型、枚举型 和子界型。
2.3 数据类型
2.3.1 有序类型 1. 整型
2.4 运算符与表达式
2.4.2 Delphi语言中的运算符及其优先级
1．赋值运算符（:=） 赋值运算符“:=”是先计算赋值运算符右
边表达式的值，再将结果赋给左边的变量。
2．算术运算符 P24 +、－、*、/、Div、Mod
2.4 运算符与表达式
2.4.2 Delphi语言中的运算符及其优先级
3．关系运算符 关系运算符是对两个类型相容且可以比
2.3 数据类型
TYPE TDate = record Year: Integer; Month: Byte; Day: Byte; end;
VAR BirthDay: TDate;
BEGIN BirthDay.Year := 1997; BirthDay.Month := 2; BirthDay.Day := 14;
2.1 标识符和保留字
在Delphi语言中，有一类标识符是系统预先定义 的，它们用于标识系统预先定义的标准函数、标准 过程、标准类型、标准常量及标准文件。 1. 标准常量，如：False、True、Maxint； 2. 标准类型，如：Boolean 、Char 、TDateTime； 3. 标准函数，如：Abs、Eof、ShowMessage、Sqrt; 4. 标准过程，如：Dispose、New、Read、ReadIn、
delphi left函数
delphi left函数Delphi是一种流行的编程语言，其中包含了许多位操作函数，其中之一就是左移函数（Left）。
本文将详细介绍Delphi左移函数的用法、应用场景以及与其他位操作函数的异同。
1.Delphi左移函数概述左移函数（Left）是Delphi中的一种位操作函数，主要用于将一个数值的二进制表示向左移动指定的位数。
这种操作通常用于扩展位字段或实现位域的运算。
2.左移函数的语法和参数Delphi左移函数的语法如下：```function Left(const Value: Integer; const Shift: Integer): Integer;```参数说明：- Value：需要进行左移操作的整数。
- Shift：指定左移的位数。
可以是正数或负数，负数表示向右移动。
3.左移函数的应用场景左移函数的主要应用场景如下：- 实现位级别的加法运算，如将两个整数的二进制表示进行左移相加。
- 实现位级别的乘法运算，如将一个整数的二进制表示左移指定的位数后与另一个整数进行与操作。
- 扩展一个位字段，如将一个字节扩展为一个较宽的字段。
4.左移函数的实例演示以下示例展示了如何使用Delphi左移函数实现位加法运算：```delphiprogram LeftShiftExample;varA, B, Result: Integer;beginA := 1;B := 2;Result := A << B; // A的二进制表示向左移动2位，相当于A * 4WriteLn("A: ", A);WriteLn("B: ", B);WriteLn("Result: ", Result);end.```5.左移函数与其他位操作函数的比较左移函数（Left）与右移函数（Right）相对应，后者将二进制表示向右移动指定的位数。
此外，还有其他位操作函数，如按位与（And）、按位或（Or）、按位异或（Xor）等。
[荐]Delphi基本语法格式
Delphi基本语法格式1. 常量：固定值，不可变数。
1)const常量名 = 常量值(表达式);2)resourcestring常量名 = 字符串(常量);2.变量1)定义Var 名字1，名字2，…名字n:类型;2)命名原则(参考)变量名字 = 类型(缩写) + 作用域(简称) + 确切含义名称3)三种赋值格式变量名：= 值;变量名1： = 变量2;变量名：= 过程或函数的调用;3.类型常量1)类型常量是全局变量并不是一个常量，它进行了预初始化值。
2)定义Const名字：类型 = 值;3)种类简单的类型常量数组类型常量记录类型常量集合类型常量指针类型常量过程类型常量4.数据类型5.用户自定义类型子域类型Type名称＝初值…终值;枚举类型Type名称＝（值1,值2，值3…值N）;数组类型Type名称＝Array[下标定义]of类型名Type 名称＝ [下标定义1，下标定义2…下标定义N] of元素类型或名称＝ [下标定义1of…Array [下标定义N] of元素类型集合类型Type 名称＝set of元素类型指针类型Type名称＝ ^结点类型记录类型Type名称＝Record域名1：类型;域名1：类型;……域名N：类型;end;文件类型Type名称＝file of元素类型语句简单语句X := Y + Z; // assignmentRandomize; // procedure call复合语句beginA := B;C := A * 2;end;end之前的最后一条语句末尾分号不是必需的，你可以写成：beginA := B;C := A * 2end;赋值语句在Pascal 语言中赋值语句用冒号-等号操作符“:=”，条件语句If语句对if-then型语句，仅当条件满足时，语句才执行；if CheckBox1.Checked thenShowMessage ('CheckBox1 is checked')对if-then-else型，if语句在两条语句中选择一条执行if CheckBox2.Checked thenShowMessage ('CheckBox2 is checked')elseShowMessage ('CheckBox2 is NOT checked');要注意的是，不能在第一句之后、else 关键词之前加分号，否则编译器将告知语法错误。