Delphi 关键字详解

最新推荐文章于 2020-11-06 11:32:58 发布

axit27651846

最新推荐文章于 2020-11-06 11:32:58 发布

阅读量149

点赞数

原文链接：http://www.cnblogs.com/andy2010/archive/2010/01/08/1642337.html

版权

Delphi 关键字详解

---absolute

  Str: [];
  StrLen: Byte  Str;


  Str := ;
  Edit1.Text := IntToStr(StrLen);
;

abstract

  TDemo = 
    
    
       X; ; ;
    
       Create;
       Destroy; ;
    
  ;

and

 (a>)  (b>) 


  a,b,c: Integer;

  c := (a  b);
;

 a>  b> 
 a>(  b)> 
 (a>)  (b>)

array

  Arr1:  [..]  Integer;


  Arr2:   Integer;

 X(A:   Integer): Integer;

 i: Integer;

  Result := ;
   i :=   Length(A)- 
  Result := Result + A[i];
;

 BtnClick(Sender:TObject);

  (Sender  TButton).Caption := ;
;

(HTTPRIO  IExp).GetConnection;


  i: Integer;
  s: ;

  s := (i  );
;
s := (i);

asm

 IntToHex(Value: Integer; Digits: Integer): ;

  CMP  EDX, 
  JBE  @A1
    EDX, EDX
  @A1: PUSH ESI
  MOV  ESI, ESP
  SUB  ESP, 
  PUSH ECX
  MOV  ECX, 
  CALL CvtInt
  MOV  EDX, ESI
  POP  EAX
  CALL System.@LStrFromPCharLen
  ADD  ESP, 
  POP  ESI
;

assembler

 IntToHex(AValue: Int64): ; ;

automated

  TDemo = 
    
      Str:WideString;
  ;


  TDemo = 
    
      Str: AnsiString;

begin

 X;

  ShowMessage();
;

 i:=   

  sum := sum + i;
   sum >   Break;
;

case

 GetDays(AYear,AMonth: Integer): Integer;

   AMonth 
    ,,,,,,: Result := ;
    ,,,: Result := ;
    : 
     IsLeapYear(AYear) 
      Result:=
    
      Result:=;
    ;
  
    Result:=;
;

cdecl

 X( i)
{
   i*2;
}

 X(i: Integer): Integer; Cdecl;  ;

class

  ClassDemo = (TObject)
    
    
       Create;
  ;


  ClassA = 
    
    
       Y;
  ;


  ClassB = (ClassA)
    
    
        X;
  ;
 ClassA.Y;

  Self.X;
;

const

 MyFileName = ;
 MyInteger = ;

 X( i: Integer): ;

constructor

  ClassDemo = (TObject)
    
      fValue: Integer;
    
       Create;
  ;

 ClassDemo.Create;

  fValue := ;
;

contains

 DATAX;
  
    rtl, clx;
  
    Db, DBLocal, DBXpress;
.

default

  ClassDemo = 
    
      fValue: Integer;
    
       Value: Integer  fValue  fValue  ;
  ;

 strings[Index: Integer]:   GetString  PutString; Default;

destructor

  ClassDemo = (TComponent)
    
       Destroy;;
  ;

 Destroy; ;

dispid

  IStringsDisp = 
    []
     ControlDefault[Index: Integer]: Olevariant  ; ;
     Count: Integer;  ;
     Item[Index: Integer]: Olevariant  ;
     Remove(Index: Integer);  ;
     Clear;  ;
     Add(Item: Olevariant): Integer;  ;
     _NewEnum: IUnknown;  -;
  ;

dispinterface

div

  a,b,c:Integer;

  a := ; b := ;
  c := a  b; 
;

 i :=     sum:=sum+i;

 i <  

　sum := sum + i;
　Inc(i);
;


　i := StrToInt(s);

　 exception  ShowMessage();
;

 Memo1.Lines 

　Clear;
　Append();
　Append();
;

downto

 i :=    
  ListBox1.Items.Add(IntToStr(i));

dynamic

 X(i: Integer); ;

else

 a > b 
  c := a

  c:=b;

 Tag Of
  :Result:=;
  :Result:=;
  :Result:=;

  Result:=;
;


  i := StrToInt(s);
Excpet
   EZeroDivide  Result := ;
   EOverflow  Result := ;

  Result := ;
;

end

 X;

　 Button1 
　
　　 Button1.ShowHint 
　　　Button1.Caption := 
　　
　　　Button1.Caption := ;
　;
;

 DATAX;
  
    rtl,
    clx;
   Db, DBLocal, DBXpress;
.

except

  i := StrToInt(s);

  ShowMessage();
;

export

 Add(a,b: Integer): Integer; ;

 Add(a,b: Integer): Integer; ;  ;

exports

 Demo;

 X(i: Integer): ; ;

　Result:=IntToStr(i);
;


　X;


.

 Demo;

 X(i: Integer): ; ; ;

　Result := IntToStr(i);
;

 X(s: ): Integer; ; ;

　Result := StrToInt(s);
;


  X(i: Integer) name ,
  X(s: ) name ;


.

external

 X(i:Integer);;

 A(FileName: ): ;  ;

 A(Name: ): ; ; ;   name ;
 A(Code: Integer): ; ; ;   name ;

far

 Add(a,b: Integer): Integer; Far;

 Add(a,b: Integer): Integer; ;  ;

file

  TPerson = 
    PName: [];
    PAge: Integer;
  ;

  PFile:   TPerson;

finalization

  ActiveX.OleInitialize();

  ActiveX.OleUninitialize;

finally

  Node := Node.GetNext;
  Edit1.Text := Node.Text;

　Node := ;
;

for

 i :=     sum := sum + i;

 i :=     Inc(sum);

forward

 X(i: Integer): Integer; ;
 Y(s: ); ;
...
 X;

  Result := i * ;
;

 Y;

  WriteLn(s);
;

function

 X(i: Integer): Integer;


　TFun = (i: Integer): Integer  ;

goto

　a,b: Integer;

　X,Y;

　 a > b 
　　 X
　
　　 Y;
X:
　WriteLn();
Y:
　WriteLn();
;

　a,b: Integer;

　a := ; b := ;
　 a>b 
　　WriteLn( + IntToStr(a))
　
　　WriteLn( + IntToStr(b));
;

 a > b 

　WriteLn();
　WriteLn( + IntToStr(a));
　WriteLn( + IntToStr(b));
End

　WriteLn();

implementation

   frmAbout;

  FormAbout.Show;
;

implements

　IMyInterface = 
　　 P1;
　　 P2;
　;
　TMyImplclass = 
　　 P1;
　　 P2;
　;
　TMyclass = (TInterfacedObject, IMyInterface)
　　FMyImplClass: TMyImplClass;
　　 MyImplClass: TMyImplclass  FMyImplclass  IMyInterface;
　　 IMyInterface.P1 = MyP1;
　　 MyP1;
　;

 IMyInterface.P1 = MyP1;

　TCol = (cA,cB,cC);
　TCols =   TCol;

　Cols: TCols;

　Cols := [cA,cB];
　 cA  Cols 
　　ShowMessage()
　
　　ShowMessage();
;

Uses
　Unit1  ;


　s: ;
　sl: TStringList;

　...
　 s In sl 
　
　　ShowMessage(s);
　;
;

index

　TForm1 = (TForm)
　
　　 GetInfo( Index: Integer): Longint;
　　 SetInfo( Index: Integer;  Value: Longint);
　
　　 iLeft:Longint    GetInfo  SetInfo;
　　 iTop:Longint    GetInfo  SetInfo;
　　 iWidth:Longint    GetInfo  SetInfo;
　　 iHeight:Longint    GetInfo  SetInfo;
　;

 TForm1.GetInfo( Index: Integer): Longint;

　 Index 
　　: result := self.Left;
　　: Result := self.Top;
　　: result := self.Width;
　　: result := self.Height;
　;
;

 Selected[Index: Integer]: Boolean  GetSelected  SetSelected;

inherited

　TDemo = (TComponent)
　
　　 Create(AOwner: TComponent); ;
　;

 TDemo.Create(AOwner: TComponent);

　 Create(AOwner);
;

 Create(AOwner);
Inherited;

initialization

  ActiveX.OleInitialize();

  ActiveX.OleUninitialize;

inline

 IntToStr(Value: Integer): ;

　InLine;
  PUSH  ESI
  MOV   ESI, ESP
  SUB   ESP, 
     ECX, ECX
  PUSH  EDX
     EDX, EDX
  CALL  CvtInt
  MOV   EDX, ESI
  POP   EAX
  CALL  System.@LStrFromPCharLen
  ADD   ESP, 
  POP   ESI
;

interface

Interface
　 frmAbout;

　FAbout: TFormAbout;

　FAbout :＝ TFormAbout.Create(Self);
　FAbout.Show;
;



　IMalloc = (IInterface)
　[]
　　 Alloc(Size: Integer): Pointer; ;
　　 Realloc(P: Pointer; Size: Integer): Pointer; ;
　　 Free(P: Pointer); ;
　　 GetSize(P: Pointer): Integer; ;
　　 DidAlloc(P: Pointer): Integer; ;
　　 HeapMinimize; ;
　;

　Comp: TComponent;

  ...
　 Comp Is TEdit 
　　(Comp  TEdit).Text := ;
;

label

　a,b: Integer;

　X,Y;

　 a > b 
　　 X
　
　　 Y;
X:
　WriteLn();
Y:
　WriteLn();
;

library

 Editors;
 EdInit, EdInOut, EdFormat, EdPrint;

  InitEditors,
  doneEditors name done,
  InsertText name Insert,
  DeleteSelection name Delete,
  FormatSelection,
  PrintSelection name Print,
  SetErrorHandler;

  InitLibrary;
.

message

 Refresh( Msg: TMessageRecordtype);  ID_REFRESH;

 Refresh( Msg: TMessageRecordtype);

   Chr(Msg.Code) =  
    ...
  
    ;
;

mod

　a,b,c: Integer;

　a := ; b := ;
　c := a  b; 
;

name

 MessageBox(HWnd: Integer; Text, Caption: PChar; Flags: Integer): Integer; 
  ;   name ;

near

 Add(a,b: Integer): Integer; ;

 Add(a,b: Integer): Integer; ;  ;

nil

 Node <>  

　ListBox1.Items.Add(Node.Text);
　Node := Node.GetNext;
;

nodefault

　TClassA = 
　
　　fValue: Integer;
　
　　 Value: Integer  fValue  fValue  ;
　;

　TClassB = (TClassA)
　
　　 Value:Integer  fValue  fValue ;
　;

not

 a > b 
 (a < b) 

 Button1Click(Sender: TObject);

　StatusBar1.Visible :=  StatusBar1.Visible;
;

object

　ODemoA = 
　;

　ODemoB = (ODemoA)
　;


　TMyFun = (i: Integer): Integer  Object;
　TMyProc = (s: )  ;

 Tag Of
　: Result := ;
　: Result := ;
;


　TDemo =   TComponent;


　MyInt:   Integer;


　MyFile:   Byte;


　TCol = (cA,cB,cC);
　TCols =   TCol;


　MyFun = (I: Integer): Integer  Object;

　i := StrToInt(s);

　 E: exception 
　　ShowMessage(E.Message);
;

 (a>)  (b>) 


  a,b,c: Integer;

  c := (a  b);
;

例如:
 a>  b> 
 a>(  b)> 
 (a>)  (b>)

out

 X( i: Integer;  s: );

　i := i * ;
　s := s + ;
;

 TForm1.Button1Click(Sender: TObject);

　i: Integer;
　s: ;

　i := ;
　s := ;
　X(i,s);
;

overload

 X(i: Integer): ; ;
 X(s: ): ; ;


　TDemo = (TComponent)
　
　　 CreateWnd(AOwner: TWinControl); ;
　;

 CreateWnd; 
 CreateWnd(AOwner: TWinControl);

override

 Create(AOwner: TComponent); ;


　TClassA = 
　　 X; ;
　;

　TClassB = (TClassA)
　　 X; ;
　;

 X; 
 X;

package

 DATAX;
  
    rtl,
    clx;
  
    MyUnit  ;
.

packed

　TPerson =  Record
　　PName: [];
　　PAge: Integer;
　;
　MyArray:    PChar;

pascal

 X(i: Integer): Integer; Pascal;

　Result := i * ;
;

private

procedure

 X(i: Integer);


　TProc = (i: Integer)  ;

program

 Project1;

  Forms,
  Unit1   ;


  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
.

property

　TDemo = 
　Private
　　fValue: Integr;
　Published
　　 Value: Integer  fValue  fValue;
　;


　TOnTextChange= (Sender: TObject)  ;
　TDemo = 
　
　　fEvent: TOnTexChange;
　
　　 OntextChange: TOnTextChange  fEvent  fEvent;
　;

protected

public

published

raise

 GetString(i: Integer): ;

　 i <  
　　 exception.Create();
　Result := IntToStr(i);
;


　i := StrToInt(s);

　 E: exception 
　　 exception.Create(E.Message);
;

read

　fValue: Integer;

　 Value: Integer  fValue;

readonly

 ReadOnly;

record

　TPerson = 
　　PName: [];
　　PAge: Integer;
　;

 Add(a,b: Integer): Integer; Register; Register

 Register;

　RegisterComponents(, [TDemo]);
;

reintroduce

　TClassA = 
　　 X;
　;
　TClassB = (TClassA)
　　 X; ;
　;
　TClassC = (TClassB)
　　 X(i: Integer); ;
　;

repeat

i := ;

　sum := sum + i;
　Inc(i);
(i >= );

requires

 DATAX;
  
    rtl,
    clx;
.

resourcestring

ResourceString
　CreateError = ;
　OpenError = ;
　LineTooLong = ;
　ProductName = ;
　SomeResourceString = SomeTrueConstant;

safecall

 X(s: WideString); ;

 X(s: PAnsiString);

set

　TCol = (cA,cB,cC);
　TCols =   TCol;


　Cols: Tcols;

　Cols := Cols + [cA,cB];
;

shl

　x: Integer;

　X :=   ; 
;

shr

　x: Integer;

　X :=   ; 
;

stdcall

Library Demo;
 X(i: Integer): Integer; ;

　Result := i * ;
;

　X;

.

 X(i: Integer): Integer; ;  ;

stored

 Value:   fValue  fValue  True;

string

　Str: ;

then

　a,b: Integer;

　 a > b 
　　WriteLn()
　
　　WriteLn();
;

threadvar

 S: AnsiString;
S := ;
S := ;

 i :=    
　ListBox1.Items.Add(IntToStr(i));

try

　i := StrToInt(s);

　ShowMessage();
;

type

　TDemo = 
　;


　TCol = (cA,cB,cC);
　TInt = Integer;

unit

Unit Unit1;
Interface
　 Classes;

.

until

i := ;

　sum := sum + i;
　Inc(i);
(i >= );

uses

Interface
　 Classes;
Implemention
　 frmAbout;

var

　i: Integer;
　s: ;

 X( i: Integer): Integer;

varargs

 printf(Format: PChar): Integer; ; varargs;

virtual

 X(i: Integer); ;

while

i := ;
 i <  

　sum := sum + i;
　Inc(i);
;

with

 Form1.Memo1.Lines 

　Clear;
　Append();
　Append();
　SaveToFile();
;

Form1.Memo1.Lines.Clear;
Form1.Memo1.Lines.Append();
Form1.Memo1.Lines.Append();
Form1.Memo1.Lines.SaveToFile();

write

　fValue: Integer;

　 Value: Integer  fValue;

writeonly

xor

　a,b: Integer;

　a := ; b := ;
　 a  b 
　　WriteLn()
　
　　WriteLn();
;

WriteLn(IntToStr(  ));

本文章使用“国华软件”出品的博客内容管理软件MultiBlogWriter撰写并发布

转载于:https://www.cnblogs.com/andy2010/archive/2010/01/08/1642337.html

axit27651846

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
Delphi 关键字详解

Delphi 关键字详解---absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var Str: string[32]; StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin Str...
复制链接

扫一扫