Delphi语言学习5函数和方法

1.函数的定义 

//格式
function functionName(parameterList): returnType; directives;
  localDeclarations;
begin
  statements
end;
//例1
function WF: Integer;
begin
  WF := 17;
end;
//例2
function WF: Integer;
begin
  Result := 17;
end;
//例3 function MyFunction: Integer;
begin
  MyFunction := 5;
  Result := Result * 2;
  MyFunction := Result + 1;
end;

2.调用方式

Delphi的函数有几种调用方式，

Directive	Parameter order	Clean-up	Passes parameters in registers?
register	Left-to-right	Routine	Yes
pascal	Left-to-right	Routine	No
cdecl	Right-to-left	Caller	No
stdcall	Right-to-left	Routine	No
safecall	Right-to-left	Routine	No

  例如：

function MyFunction(X, Y: Real): Real; cdecl;

 3.函数声明

//先声明后实现
function Calculate(X, Y: Integer): Real; forward;
function Calculate;
   { declarations }
begin
   { statement block }
end;

//扩展声明
//1
function printf(Format: PChar): Integer; cdecl; varargs;
//2 Linking to Object Files
{$L BLOCK.OBJ}
procedure MoveWord(var Source, Dest; Count: Integer); external;
procedure FillWord(var Dest; Data: Integer; Count: Integer); external;

//3 Importing Functions from Libraries
function SomeFunction(S: string): string; external 'strlib.dll';
//The following declaration imports a function from user32.dll (part of the Win32 API). 
function MessageBox(HWnd: Integer; Text, Caption: PChar; Flags: Integer): Integer; stdcall; external 'user32.dll' name 'MessageBoxA';

4.函数重载

function Divide(X, Y: Real): Real; overload;
begin
  Result := X/Y;
end

function Divide(X, Y: Integer): Integer; overload;
begin
  Result := X div Y;
end;

 5.