program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
//-------------for 语句实现----------------------------
const
    N = 8;
var
  Fib: array[0..8] of Integer ;
  i:Integer;

begin
   Fib[0] := 0;
   Fib[1] := 1;

  for i:=2 to N do
    Fib[i] :=Fib[i -1] + Fib[i -2];
      for i := 0 to N do
         Writeln(Fib[i]);

Readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

{
//---------------------While....do语句实现 ---------------------------------------------
  const
    N = 8;
  var
    Fib: array[0..N] of Integer;
    i:Integer;
begin
   Fib[0] :=0;
   Fib[1] :=1;
   i :=2;
   while i<=N  do
   begin
     Fib[i] :=Fib[i -1] + Fib[i - 2];
     Inc(i);
   end;
//--------------------------------------------------------------
       i:=0;
       while i <=8 do
       begin
        Writeln(Fib[i]);
        Inc(i);
        end;
Readln;
end.
}
//====<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
//====<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
{
//----------------Repeat..until 语句实现----------------------------------------------------
  const
    N = 8;
  var
    Fib: array[0..N] of Integer;
    i:Integer;
begin
   Fib[0] :=0;
   Fib[1] :=1;

   i:=2;
  repeat
    Fib[i] :=Fib[i -1]+Fib[i -2];
    Inc(i);
  until i >=N ;

    i:=0;
    repeat
      Writeln(Fib[i]);
      Inc(i);
    until i >=N;

Readln;
end.
}

//====<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
//====<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
{
//----------------goto 语句实现----------------------------------------------------
  const
    N = 8;
  var
    Fib: array[0..N] of Integer;
    i:Integer;
  label Sum, Applear, ends;
begin
   Fib[0] :=0;
   Fib[1] :=1;
   i:=2;
//---------------------------------
sum:
   Fib[i]:=Fib[i -1] + Fib[i -2];
   inc(i);
   if i <= N then
   goto sum;
//----------------------------------
   i:=0;
Applear:
        Writeln(Fib[i]);
        Inc(i);

        if i <=N then
          begin
              goto  Applear;
          end
             else
               begin
                  goto ends;
               end;
ends:

Readln;
end.

}

type 
TMessage = packed record 
Msg: Cardinal; 
case Integer of 
0: ( WParam: Longint; 
LParam: Longint; 
Result: Longint); 

1: ( WParamLo: Word; 
WParamHi: Word; 
LParamLo: Word; 
LParamHi: Word; 
ResultLo: Word; 
ResultHi: Word); 
end; 

TWMKey = packed record 
Msg: Cardinal; 
CharCode: Word; 
Unused: Word; 
KeyData: Longint; 
Result: Longint; 

TWMChar=TWMkey； 
TWMKeyDown= TWMkey；
TWMKeyUp=TWMkey；
 TWMSys -KeyDown=TWMkey;
 TWMSysKeyUp= TWMkey；
TWMSysChar=TWMkey； 
 

const 
{$EXTERNALSYM BN_CLICKED} 
BN_CLICKED = 0; 
{$EXTERNALSYM BN_PAINT} 
BN_PAINT = 1; 
{$EXTERNALSYM BN_HILITE} 
BN_HILITE = 2; 

unit MessageHandle; 
interface
uses messages,Classes,SysUtils,Dialogs;
const PMSG_BASE = $BE00;   //自定义消息基址; 
      PMSG_NUM = 200;      //消息表大小； 
{**自定义消息处理类 
  *;功能 = 建立自定义消息表，处理线程之间 
  *   以及与主窗体之间的自定义消息(宏观) 
*}
  //消息处理句柄
  TMessageHandle = procedure(var Message: TMessage) of Object;
  TPDispatcher = class(TObject)
  private 
    //消息对应表(消息ID为数组下标); 
    MessageHandles: array of TMessageHandle; 
    //从消息ID得到数组ID 
    function GetIndexFromMsgID(const aMessageID: cardinal): Integer; 
  public
    constructor Create;
    destructor Destroy;
    //发送消息
    procedure SendMessage(var Message: TMessage); overload; 
    //添加自定义消息到消息对应表; 
    procedure AddHandle(const aMessageID: cardinal; aMessageHandle: TMessageHandle);
  end;
  //
implementation
{ TPDispatcher }
constructor TPDispatcher.Create;
var i: Integer; 
begin
  SetLength(MessageHandles,PMSG_NUM);  //200个消息的消息对应表
  //初始化消息队列;
  for i := 0 to Pred(PMSG_NUM) do
    MessageHandles[i] := nil;
end;
destructor TPDispatcher.Destroy; 
begin 
   {释放消息对应表}
  FreeAndNil(MessageHandles);
end; 
procedure TPDispatcher.AddHandle(const aMessageID: cardinal; 
  aMessageHandle: TMessageHandle);
var tID: Integer;
begin
  tID := GetIndexFromMsgID(aMessageID);
  Assert((tID > 0) or (tID < Pred(PMSG_NUM)) );
  Assert(Assigned(aMessageHandle));
  MessageHandles[tID] := aMessageHandle;
end; 
function TPDispatcher.GetIndexFromMsgID(const aMessageID: cardinal): Integer; 
begin
  Result := aMessageID - PMSG_BASE;
end;
procedure TPDispatcher.SendMessage(var Message: TMessage);
var tID: Integer;
    tMsgHandle: TMessageHandle;
begin
  tID := GetIndexFromMsgID(Message.Msg);
  Assert((tID > 0) or (tID < Pred(PMSG_NUM)));
  tMsgHandle := MessageHandles[tID];
  if Assigned(tMsgHandle) then
    tMsgHandle(Message);
end;

Unit unit1
const 
      {自定久线程消息}
      MY_MESSAGE2 = PMSG_BASE + 02;  
type
  TForm1 = class(TForm)
    AddMsgList: TButton;
    SendThead: TButton;
    sendForm: TButton;
    sendOther: TButton;
    procedure SendTheadClick(Sender: TObject);  //发送消息
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    Fdispatcher: TPDispatcher;  消息映射表类
    Fhandle: TPHandler;
    FThread:  TPTHread;  自定义线程类
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SendTheadClick(Sender: TObject);
var aMessage: TMessage;
begin
    aMessage.Msg := MY_MESSAGE2;
    aMessage.WParam := 1;
    Fdispatcher.SendMessage(aMessage);
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  {创建消息映射表类}
  Fdispatcher := TPDispatcher.Create;
  Fhandle := TPHandler.Create;
  {创建线程}
    FThread := TPThread.Create(false);
  {向映射表中增加消息}
   Fdispatcher.AddHandle(MY_MESSAGE2,FThread.DoMessage);
end;
procedure TForm1.FormDestroy(Sender: TObject);
var i: Integer;
begin
  FreeAndNil(Fdispatcher);
  FreeAndNil(Fhandle);
  for i:= 0 to 3 do
    FreeAndNil(FThread[i]);
end;

unit pThread; 
interface
uses classes,sysutils,Windows,Messages,Dialogs;
const MY_MESSAGE1 = $BD00 + 01;
Type
{** 消息处理线程类
  *;功能 = 添加线程处理消息能力，
*}
  TPMsgThread = class(TThread)
  private
    //窗口句柄
    FWndHandle: HWND;
    //窗口数据信息
    FWndClass: WNDCLASS;
    //指向窗口回调函数的指针
    FObjectInstance: Pointer;
    //初始化窗口数据
    procedure InitWnd;
    //创建隐藏窗口
    procedure CreateWnd;
    //注册隐藏窗口
    procedure RegistWnd;
    procedure DestroyWnd;
    //窗口回调函数
    procedure pWndProc(var Message: TMessage); virtual;
  protected
    procedure Execute; override;
    procedure DoTerminate; override;
  public
    constructor Create(CreateSuspended: Boolean); virtual;
    property WndHandle: HWND read FWndHandle write FWndHandle;
  end;
 
implementation 
const WND_NAME = 'PY20'; 
{ TPMsgThread }
constructor TPMsgThread.Create(CreateSuspended: Boolean);
begin 
  inherited Create(CreateSuspended); 
  FWndHandle := Integer(nil);
  InitWnd;
  RegistWnd;
  CreateWnd;
end;
 
procedure TPMsgThread.CreateWnd;
begin
  if(WndHandle = Integer(nil)) then
    WndHandle := CreateWindow(FWndClass.lpszClassName, FWndClass.lpszClassName,
      WS_POPUP or WS_CAPTION or WS_CLIPSIBLINGS or WS_SYSMENU
      or WS_MINIMIZEBOX,
      GetSystemMetrics(SM_CXSCREEN) div 2,
      GetSystemMetrics(SM_CYSCREEN) div 2,
      0, 0, 0, 0, FWndClass.hInstance, nil);
  //置换窗口回调函数
  SetWindowLong(WndHandle, GWL_WNDPROC, Longint(FObjectInstance));
end; 
procedure TPMsgThread.DestroyWnd; 
begin
  UnregisterClass(FWndClass.lpszClassName,FWndClass.hInstance);
  DestroyWindow(WndHandle);
end; 
procedure TPMsgThread.DoTerminate; 
begin
  inherited;
  DestroyWnd;
end; 
procedure TPMsgThread.Execute; 
begin 
end; 
procedure TPMsgThread.InitWnd;
begin
  FwndClass.lpszClassName := PChar(WND_NAME);
  FWndClass.hInstance := Handle;
  FWndClass.lpfnWndProc := @DefWindowProc;
end; 
procedure TPMsgThread.pWndProc(var Message: TMessage); 
begin 
end;procedure TPMsgThread.RegistWnd; 
begin
  FObjectInstance := Classes.MakeObjectInstance(pWndProc);
  if(FWndClass.hInstance <> Integer(nil)) then
    RegisterClass(FWndClass);
end;

在看完万一的汇编方面的例子后，觉的不错，特地的将学习后的代码收藏起来，这样方便复习

function addasm(x, y:integer):integer;
var
  conut :integer;
begin
  asm
  MOV EAX, x
  MOV ECX, y
  ADD EAX, ECX
  MOV conut, EAX
end;
Result :=conut;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  i:=addasm(2, 5);
  ShowMessage(IntToStr(i));
end;

end.

//▎============================================================▎//
//▎=====================⑿其它函数及过程=======================▎//
//▎============================================================▎//

function TrimInt(Value, Min, Max: Integer): Integer; overload;    {测试通过}
{* 输出限制在Min..Max之间}

function IntToByte(Value: Integer): Byte; overload;   {测试通过}
{* 输出限制在0..255之间}

function InBound(Value: Integer; Min, Max: Integer): Boolean;    {测试通过}
{* 判断整数Value是否在Min和Max之间}

procedure CnSwap(var A, B: Byte); overload;
{* 交换两个数}
procedure CnSwap(var A, B: Integer); overload;
{* 交换两个数}
procedure CnSwap(var A, B: Single); overload;
{* 交换两个数}
procedure CnSwap(var A, B: Double); overload;
{* 交换两个数}

function RectEqu(Rect1, Rect2: TRect): Boolean;
{* 比较两个Rect是否相等}

procedure DeRect(Rect: TRect; var x, y, Width, Height: Integer);
{* 分解一个TRect为左上角坐标x, y和宽度Width、高度Height}

function EnSize(cx, cy: Integer): TSize;
{* 返回一个TSize类型}

function RectWidth(Rect: TRect): Integer;
{* 计算TRect的宽度}

function RectHeight(Rect: TRect): Integer;
{* 计算TRect的高度}

procedure Delay(const uDelay: DWORD);     {测试通过}
{* 延时}

procedure BeepEx(const Freq: WORD = 1200; const Delay: WORD = 1);     {Win9X下测试通过}
{* 只能在Win9X下让喇叭发声}

procedure ShowLastError;       {测试通过}
{* 显示Win32 Api运行结果信息}

function writeFontStyle(FS: TFontStyles; inifile: string; write: boolean):string;
{* 将字体Font.Style写入INI文件}

function readFontStyle(inifile: string): TFontStyles;
{* 从INI文件中读取字体Font.Style文件}

//function ReadCursorPos(SourceMemo: TMemo): TPoint;
function ReadCursorPos(SourceMemo: TMemo): string;
{* 取得TMemo 控件当前光标的行和列信息到Tpoint中}

function CanUndo(AMemo: TMemo): Boolean;
{* 检查Tmemo控件能否Undo}

procedure Undo(Amemo: Tmemo);
{*实现Undo功能}

procedure AutoListDisplay(ACombox:TComboBox);
{* 实现ComBoBox自动下拉}

function UpperMoney(small:real):string;
{* 小写金额转换为大写 }

function Myrandom(Num: Integer): integer;
{*利用系统时间产生随机数)}

procedure OpenIME(ImeName: string);
{*打开输入法}

procedure CloseIME;
{*关闭输入法}

procedure ToChinese(hWindows: THandle; bChinese: boolean);
{*打开中文输入法}

//数据备份
procedure BackUpData(LpBackDispMessTitle:String);


implementation  {▎=======函数及过程体开始==========▎}

//▎============================================================▎//
//▎===================⑩数据库功能函数及过程===================▎//
//▎============================================================▎//
{function PackDbDbf(Var StatusMsg: String): Boolean;}
{* 物理删除数据库(Db，Dbf)中的数据[着了删除标记的记录]}


procedure RepairDb(DbName: string);
{* 修复Access表}

function CreateODBCCfgInRegistry(ODBCSourceName:WideString;ServerName, DataBaseDescription:String):boolean;
{* 通过注册表创建ODBC配置[创建在系统DSN页下]}

function ADOConnectSysBase(Const Adocon:TadoConnection):boolean;
{* 用Ado连接SysBase数据库函数}

function ADOConnectLocalDB(Const Adocon:TadoConnection;Const Dbname,DbServerName:string;ValidateMode:Integer):boolean;
{* 用Ado连接数据库函数}

function ADOODBCConnectLocalDB(Const Adocon:TadoConnection;Const Dbname:string;ValidateMode:Integer):boolean;
{* 用Ado与ODBC共同连接数据库函数}

function CreatTable(LpDataBaseName,LpTableName,LpSentence:string):Boolean;
{* //建立新表}

function AddField(LpFieldName:string; LpDataType: TFieldType; LpSize: Word):string;
{*//在表中添加字段}

function KillField(LpFieldName:string):String;
{* //在表中删除字段}

function AlterTableExec(LpDataBaseName,LpSentence:string):Boolean;
{* //修改表结构}

function GetSQLSentence(LpTableName,LpSQLsentence:string): string;
{* /修改、添加、删除表结构时的SQL句体}

//▎============================================================▎//
//▎======================⑾进制函数及过程======================▎//
//▎============================================================▎//

function StrToHex(AStr: string): string;
{* 字符转化成十六进制}

function HexToStr(AStr: string): string;
{* 十六进制转化成字符}

function TransChar(AChar: Char): Integer;

//▎============================================================▎//
//▎=====================⑨汉字拼音功能函数=====================▎//
//▎============================================================▎//
function GetHzPy(const AHzStr: string): string;       {测试通过}
{* 取汉字的拼音}

function HowManyChineseChar(Const s:String):Integer;
{* 判断一个字符串中有多少各汉字}