delphi 基础

时间 2019-11-12

标签 delphi 基础栏目 Delphi 繁體版

原文原文链接

Class:java

type
//class 声明或者定义继承一个类class(TObject). 
TDate = class
private
fDate: TdateTime;
Month, Day, Year: Integer;
public 

//构造函数，若是定义了constructor，默认构造函数无效
constructor Create (y, m, d: Integer);
constructor Create; overload;

//Destructor用于标识析构函数, 析构函数在类被释放时自动调用.析构函数只容许覆盖, 再不容许重载
//Free时，会调用Destory,调用前会判断是否为nil，可是调用后不会将self置为nil，由于不知道自己是否被引用。
destructor Destroy;override;

//procedure 无返回值
procedure SetValue (y, m, d: Integer); overload；

//overload 重载
procedure SetValue (NewDate: TDateTime); overload;
function LeapYear: Boolean;
function GetText: String;
procedure Increase;
proceure Y;

//虚拟函数，通C++相同，经过virtual table（VMT）来找到virtual函数入口，包含父类的VMT
function Voice:String; virtual;
//动态方法，结果和virtual相同，差异在于编译时候使用动态方发表(DMT)，
//子类使用惟一的数字+动态方法地址构成DMT，可是不包含祖先的DMT。因此运行时内存小，可是速度慢
//function Voice:String; dynamic;

//抽象函数，同C++，抽象函数，不能定义实例
function Jump:String; virtual; abstract;

//message方法可用于处理windows消息,可调用postMessage(TDateObj.hANDLE，wm_User, 0, 0); var是引用
procedure WMUser(var Msg: TMessage); message wm_User;

//属性名 : 属性值类型 read 属性读函数/属性值变量 write 属性写函数/属性值变量,write属性能够省略，变成只读
property Year: Integer read GetYear write SetYear;
end;

constructor TDate.Create;
begin
Day:= 0;
end;


type
TClassB = clas(TDate)
public
//父类能够访问子类方法
class procedure X;

//和C++同样叫虚拟函数，和java同样有override关键字...... 必须父类函数是virtual,若是不是，是覆盖而不是刻意动态绑定
function Voice:String; override;
end

procedure TDate.GetYear;
begin
Result := YearOf(fDate);
end;

procedure TDate.Y;
begin 
//Self访问当前对象，无参数方法能够省略()
Self.X;
end;

类型转换和异常处理：windows

//is 判断类型
if obj is ClassB then
xxxxx

//as 类型转换
(obj as ClassB).do

//异常处理
try…except…end;　
try…finally…end;
//和try…except…end不一样，该结构的finally部分总被执行
//不存在try…except…finally…end结构来既处理异常，又保护资源分配的结构
//容许以下结构，从而实现既处理异常，又保护资源的分配
try
 try…except…end  
finally
end;

//触发异常，相似C++ throw
raise xxxException;

流程处理:数组

//If语句的一般结构是If...Then...else, else语句也能够不要.
//在If语句内若是有多个子语句, 则必须用begin...End结构进行区分.
if a > b then
begin
　WriteLn('a>b');
End
else
　WriteLn('b>a');

//For关键字引出For循环结构, 用于作指定次数的循环.
for i := 1 to 100 do sum := sum + i;
//若是循环变量是递减的, 则能够用DownTo关键字
for i := 100 downto 1 do Inc(sum);


//Case语句用于完成条件选择, Case语句的的被选择对象必须是有序类型, 包括整型, 枚举类型, 字符型等.
//Case语句必须由end结束,若是没有相符合的选择项, 能够加入else来做出通用选择.
function GetDays(AYear,AMonth: Integer): Integer;
begin
 case AMonth of
  1,3,5,7,8,10,12: Result := 31;
  4,6,9,11: Result := 30;
  2: begin
  if IsLeapYear(AYear) then
   Result:=29
  else
   Result:=28;
  end;
 else
  Result:=0;
end;

//While关键字用于引出While循环语句, 循环前先进行循环条件的判断, 若是条件为真则执行循环.
i := 0;
while i < 100 do
begin
　sum := sum + i;
　Inc(i);
end;

//Until关键字用于判断repeat循环结构的循环条件, 
//若是循环条件为真, 则退出循环.Until必须与repeat关键字联合使用.
i := 0;
repeat
　sum := sum + i;
　Inc(i);
until(i >= 100);

//Goto语句用在跳转行号, 能够跳转到当前结构层内任意位置.
//必须在声明处用label关键字声明行号.
//因为Goto语句会破坏程序的结构, 不推荐使用.
var
　a,b: Integer;
label
　X,Y;
begin
　if a > b then
　　goto X
　else
　　goto Y;
X:
　WriteLn('a > b');
Y:
　WriteLn('b > a');
end;

与或非ide

//Xor用于取异或, 当两个操做数相等时, 返回False, 不等时返回True.
var
　a,b: Integer;
begin
　a := 2; b := 3;
　if a xor b then
　　WriteLn('a xor b')
　else
　　WriteLn('a not xor b');
end;

//1、表示逻辑与 必须用括号括起
if (a>0) and (b>0) then
//2、表示位运算  必须用括号括起
var
a,b,c: Integer;
begin
c := (a and b);
end;

//1、表示逻辑或  必须用括号括起
if (a>0) or (b>0) then
//2、表示位运算  必须用括号括起
var
a,b,c: Integer;
begin
c := (a or b);
end;

数据类型函数

基本数据类型
类型             类型说明            使用说明
整形             Integer             标准数据类型，使用前没必要定义
实型             Reall               标准数据类型，使用前没必要定义
字符型           Character           标准数据类型，使用前没必要定义
字符串型         String              标准数据类型，使用前没必要定义
布尔型           Boolean             标准数据类型，使用前没必要定义
枚举型           Enumerated          高级数据类型，先定义后使用
子界型           Subrange            高级数据类型，先定义后使用
集合型           Set                 高级数据类型，先定义后使用
数据类型         Aray                高级数据类型，先定义后使用
文件类型         File                高级数据类型，先定义后使用
记录类型         Record              高级数据类型，先定义后使用
类类型           Class               高级数据类型，先定义后使用
类引用类型       Class Reference     高级数据类型，先定义后使用
接口类型         Interface           高级数据类型，先定义后使用
指针类型         Pointer             高级数据类型，先定义后使用
过程类型         Procedural          高级数据类型，先定义后使用
可变类型         Variant             高级数据类型，先定义后使用 

整形数据      
类型          类型说名符    字节数     取值范围 
整型          Integer       4          -2 147 483 648——2 147 483 647 
序数型        Cardinal      4          0——4 294 967 295       
短整型        ShortInt      1          -128——127
长整型        LongInt       4          -2 147 483 648——2 147 483 647
小整型        SmallInt      2          -32 768——32 767
64位整数      Int64         8          -2 63次方——2 63次方-1
字型          Word          2          0——65 535
长字型        LongWord      4          0——4 294 967 295
字节型        Byte          1          0——255     

实型数据
类型          类型说明符    字节数     取值范围
单精度实型    Single        4          -3.4X10 38方——  -1.5X10-39方 ，1.5X10-39方——3.4X10 38方
双精度实型    Double        8          -1.7X10 308方——  -5.0X10-324方，5.0X10-324方——1.7X10 308方 
扩展型        Extended      10         -1.1X10 4932方——  -3.6X10 -4951方，3.6X10 -4951方——1.1X10 4932方
货币型        Currency      8          -922 337 203 685 477.580 8——922 337 203 685 477.5870
实型          Real          8          -1.7X10 308方—— -5.0X10 -324方，5.0X10-324方——1.7X10 308方

字符型数据
类型          名称          字节数     取值范围
字符型        Char          1(2)       扩展ANSI字符集
宽字符型      WideChar      2          UniCode字符集
Ansi字符型    AnsiChar      1          扩展ANSI字符集


字符串型数据
类型           类型说明符        最大长度
字符串型       String            2 31方个字符
短字符型       ShortString       255个字符
长字符串型     Ansisting         2 31方个字符
宽字符串型     WideSring         2 30方个字符

布尔形数据
类型           类型说明符    字节数    取值
布尔型         Boolean       1         只能为0（False）或1（True） 
长布尔型       LongBOOl      4         0（False）或非0（True）
宽布尔型       WideBool      2         0（False）或非0（True）
字节布尔型     ByteBool      1         0（False）或非0（True）

集合类型post

//Array用于表示数组, 任何的对象都能被声明成数组.数组分为静态和动态的２种.
//静态数组
var
Arr1: array [1..10] of Integer;
 
//动态数组, 因为声明时不知其元素个数, 因此必须在后期用SetLength方法设置数组的大小
var
Arr2: array of Integer;
 
//数组做为参数时, 不能传入数组的大小, 只能传入数组名, 而后用Length方法获取数组的元素个数
function X(A: array of Integer): Integer;
var
i: Integer;
begin
Result := 0;
for i := 0 to Length(A)-1 do
Result := Result + A[i];
end;

//Set关键字用于声明集合类, 集合类容许用集合运算符, 如in等进行操做.
//集合的元素个数不超过256个
type
　TCol = (cA,cB,cC);
　TCols = set of TCol;
//操做时容许使用加减符号来添加或删除某个集合元素
var
　Cols: Tcols;
begin
　Cols := Cols + [cA,cB];
end;

其余关键字spa

//On关键字用于异常处理, 指出发生的异常, 并获取异常信息.
try
　i := StrToInt(s);
except
　on E: exception do
　　ShowMessage(E.Message);
end;

//With关键字用于将相同的对象集合起来处理, 它能够省去输入大量重复的代码, 使代码看上去比较精简.
with Form1.Memo1.Lines do
begin
　Clear;
　Append('abc');
　Append('def');
　SaveToFile('C:\demo.txt');
end;
//上面这段代码若是不使用With语句, 则显得很是冗余复制内容到剪贴板代码:
Form1.Memo1.Lines.Clear;
Form1.Memo1.Lines.Append('abc');
Form1.Memo1.Lines.Append('def');
Form1.Memo1.Lines.SaveToFile('C:\demo.txt');

//In用于判断一个集合中是否包含某个元素.被判断的内容必须是单个集合元素和一个集合的实例.
type
　TCol = (cA,cB,cC);
　TCols = set of TCol;
var
　Cols: TCols;
begin
　Cols := [cA,cB];
　if cA in Cols then
　　ShowMessage('cA in Cols')
　else
　　ShowMessage('cA not in Cols');
end;
//In也用于工程文件中, 用于标识某个文件是否被工程所引用.
Uses
　Unit1 in 'Unit1.pas';
 
//In能够被用在For语句中, 用于循环取出一个集合中的元素.
var
　s: string;
　sl: TStringList;
begin
　...
　for s In sl do
　begin
　　ShowMessage(s);
　end;
end;

//Of关键用于和其余关键字构成指定的结构.Of能够与Case, Class, Array, File, Set, Object连用.
//Case语句:
case Tag Of
　0: Result := 'a';
　1: Result := 'b';
end;
 
//Class语句:
type
　TDemo = class of TComponent;
 
//Array结构:
var
　MyInt: array of Integer;
 
//File结构:
var
　MyFile: file of Byte;
 
//Set语句:
type
　TCol = (cA,cB,cC);
　TCols = set of TCol;
 
//Object结构:
type
　MyFun = function(I: Integer): Integer of Object;