如何将C语言程序转译成delphi语言程序

1、目录Delphi指针与C指针区别2一、类型指针的定义。2二、无类型指针的定义。2三、指针的解除引用。2四、取地址（指针赋值）。3五、指针运算。3六、动态内存分配。3七、字符数组的运算。4八、函数指针。4九. 数据类型对照表5十.关键字对照表6如何将C/C+程序转译成Delphi81 c头文件分解82 基本转换82.1 名字82.2 单元附属82.3 #defines 和 constants93 数据类型93.1 基本数据类型93.2 winapi公共类型103.3数组113.4 字符串113.5枚举类型：113.6 结构、记录124. 宏命令155 条件句166 函数166.1 基本的166.

2、2 调用约定167. 连接177.1 静态链接177.2 动态链接188 公共支持单元20Delphi指针与C指针区别大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今的Object Pascal，可以说在指针运用上，丝毫不会逊色于C语言的指针。以下内容分为八个部分，分别是一、类型指针的定义二、无类型指针的定义三、指针的解除引用四、取地址（指针赋值）五、指针运

3、算六、动态内存分配七、字符数组的运算八、函数指针九、数据类型对照表十、关键字对照表一、类型指针的定义。对于指向特定类型的指针，在C中是这样定义的：int *ptr; char *ptr;与之等价的Object Pascal是如何定义的呢？varptr : Integer;ptr : char;其实也就是符号的差别而已。二、无类型指针的定义。C中有void *类型，也就是可以指向任何类型数据的指针。Object Pascal为其定义了一个专门的类型：Pointer。于是，ptr : Pointer;就与C中的void *ptr;等价了。三、指针的解除引用。要解除指针引用（即取出指针所指区域的值）

4、，C 的语法是 (*ptr)，Object Pascal则是 ptr。四、取地址（指针赋值）。取某对象的地址并将其赋值给指针变量，C 的语法是ptr = &Object;Object Pascal 则是ptr := Object;也只是符号的差别而已。五、指针运算。在C中，可以对指针进行移动的运算，如：char a20;char *ptr=a;ptr+;ptr+=2;当执行ptr+;时，编译器会产生让ptr前进sizeof(char)步长的代码，之后，ptr将指向a1。ptr+=2;这句使得ptr前进两个sizeof(char)大小的步长。同样，我们来看一下Object Pascal中

5、如何实现：vara : array 1.20 of Char;ptr : PChar; /PChar 可以看作 Charbeginptr := a;Inc(ptr); / 这句等价于 C 的 ptr+;Inc(ptr, 2); /这句等价于 C 的 ptr+=2;end;六、动态内存分配。C中，使用malloc()库函数分配内存，free()函数释放内存。如这样的代码：int *ptr, *ptr2;int i;ptr = (int*) malloc(sizeof(int) * 20);ptr2 = ptr;for (i=0; i<20; i+)*ptr = i;ptr+;free(pt

6、r2);Object Pascal中，动态分配内存的函数是GetMem()，与之对应的释放函数为FreeMem()（传统Pascal中获取内存的函数是New()和 Dispose()，但New()只能获得对象的单个实体的内存大小，无法取得连续的存放多个对象的内存块）。因此，与上面那段C的代码等价的 Object Pascal的代码为：var ptr, ptr2 : integer;i : integer;beginGetMem(ptr, sizeof(integer) * 20);/这句等价于C的 ptr = (int*) malloc(sizeof(int) * 20);ptr2 := pt

7、r; /保留原始指针位置for i := 0 to 19 dobeginptr := i;Inc(ptr);end;FreeMem(ptr2);end;对于以上这个例子（无论是C版本的，还是Object Pascal版本的），都要注意一个问题，就是分配内存的单位是字节（BYTE），因此在使用GetMem时，其第二个参数如果想当然的写成 20，那么就会出问题了（内存访问越界）。因为GetMem(ptr, 20);实际只分配了20个字节的内存空间，而一个整形的大小是四个字节，那么访问第五个之后的所有元素都是非法的了（对于malloc()的参数同样）。七、字符数组的运算。C语言中，是没有字符串类型的

8、，因此，字符串都是用字符数组来实现，于是也有一套str打头的库函数以进行字符数组的运算，如以下代码：char str15;char *pstr;strcpy(str, "teststr");strcat(str, "_testok");pstr = (char*) malloc(sizeof(char) * 15);strcpy(pstr, str);printf(pstr);free(pstr);而在Object Pascal中，有了String类型，因此可以很方便的对字符串进行各种运算。但是，有时我们的Pascal代码需要与C的代码交互（比如：用 O

9、bject Pascal的代码调用C写的DLL或者用Object Pascal写的DLL准备允许用C写客户端的代码）的话，就不能使用String类型了，而必须使用两种语言通用的字符数组。其实，Object Pascal提供了完全相似C的一整套字符数组的运算函数，以上那段代码的Object Pascal版本是这样的：var str : array 1.15 of char;pstr : PChar; /Pchar 也就是 CharbeginStrCopy(str, 'teststr'); /在C中，数组的名称可以直接作为数组首地址指针来用/但Pascal不是这样的，因此 str前

10、要加上取地址的运算符StrCat(str, '_testok');GetMem(pstr, sizeof(char) * 15);StrCopy(pstr, str);Write(pstr);FreeMem(pstr);end;八、函数指针。在动态调用DLL中的函数时，就会用到函数指针。假设用C写的一段代码如下：typedef int (*PVFN)(int); /定义函数指针类型int main()HMODULE hModule = LoadLibrary("test.dll");PVFN pvfn = NULL;pvfn = (PVFN) GetProc

11、Address(hModule, "Function1");pvfn(2);FreeLibrary(hModule);就我个人感觉来说，C语言中定义函数指针类型的typedef代码的语法有些晦涩，而同样的代码在Object Pascal中却非常易懂：type PVFN = Function (para : Integer) : Integer;varfn : PVFN;/也可以直接在此处定义，如：fn : function (para:Integer):Integer;hm : HMODULE;beginhm := LoadLibrary('test.dll'

12、;);fn := GetProcAddress(hm, 'Function1');fn(2);FreeLibrary(hm);end;Delphi构造函数中抛出异常会自动先调用析构函数Delphi里，如果构造函数中抛出了异常，则会自动先执行析构函数，然后再把异常向外抛出；而在C 里，构造函数中若有异常抛出，则析构函数是不会被调用的。Delphi简化了COM接口中的AddRef、Release和QueryInterfaceC 里一般用模板对COM接口进行封装，而在Delphi里，AddRef、Release以及QueryInterface都被编译器隐藏掉了，当把一个IUnknow

13、n类型的变量（本质上也是一个指针）赋值给另一个变量时，编译器在背后自动AddRef，当一个IUnknown变量离开作用域的时候（再也没有人使用它），Release被自动调用，而QueryInterface被抽象为AS运算符： 软件开发网 procedureFoo(constAParam:IUnknown);varbar:IUnknown;other:IStream;beginbar:=AParam; /AParam指向的实例由于赋值操作被AddRef一次other:=barasIStream;/调用了一次QueryInterface，引用计数再次加一end;/返回时，other和bar都离开作

14、用域，分别被调用Release各一次C 中用模板（比如_com_ptr）也可以使引用计数自动化，不过QueryInterface就没那么方便了。九. 数据类型对照表序号C/C+ 类型ObjectPascal类型序号C/C+类型ObjectPascal类型1unsigned short intWord12charChar2signed short intSmallInt13signed charShortInt3unsigned intCardinal  3.25 fix 14unsigned charByte4signed intInteger15char*PChar5UINTLon

15、gInt  or Cardinal 16LPSTR or PSTRPChar6WORDWord17LPWSTR or PWSTRPWideChar  3.12 fix 7DWORDLongInt  or Cardinal 18void*Pointer8unsigned longLongInt  or Cardinal 19BOOLBool9unsigned long intLongInt  or Cardinal 20floatSingle10signed longLongInt21doubleDouble11signed

16、long intLongInt22long doubleExtended十.关键字对照表LP,NP,PP,P 前缀: if first = T then T becomes P else P 前缀x序号C/C+ 类型ObjectPascal类型序号C/C+类型ObjectPascal类型1HANDLETHandle39ABCTABC2FARPROCTFarProc40RASTERIZER_STATUSTRasterizer_Status3ATOMTAtom41MOUSEHOOKSTRUCTTMouseHookStruct4TPOINTTPoint42CBTACTIVATESTRUCTTCBTA

17、ctivateStruct5TRECTTRect43HARDWAREHOOKSTRUCTTHardwareHookStruct6COLORREFTColorRef44EVENTMSGTEventMsg7OFSTRUCTTOFStruct45WNDCLASSTWndClass8DEBUGHOOKINFOTDebugHookInfo46MSGTMsg9BITMAPTBitMap47MINMAXINFOTMinMaxInfo10RGBTRIPLETRGBTriple48SEGINFOTSegInfo11RGBQUADTRGBQuad49ACCELTAccel12BITMAPCOREHEADERTBi

18、tmapCoreHeader50PAINTSTRUCTTPaintStruct13BITMAPINFOHEADERTBitmapInfoHeader51CREATESTRUCTTCreateStruct14BITMAPINFOTBitmapInfo52CBT_CREATEWNDTCBT_CreateWnd15BITMAPCOREINFOTBitmapCoreInfo53MEASUREITEMSTRUCTTMeasureItemStruct16BITMAPFILEHEADERTBitmapFileHeader54DRAWITEMSTRUCTTDrawItemStruct17HANDLETABLE

19、THandleTable55DELETEITEMSTRUCTTDeleteItemStruct18METARECORDTMetaRecord56COMPAREITEMSTRUCTTCompareItemStruct19METAHEADERTMetaHeader57WINDOWPOSTWindowPos20METAFILEPICTTMetaFilePict58WINDOWPLACEMENTTWindowPlacement21TEXTMETRICTTextMetric59NCCALCSIZE_PARAMSTNCCalcSize_Params22NEWTEXTMETRICTNewTextMetric

20、60SIZETSize23LOGBRUSHTLogBrush61MENUITEMTEMPLATEHEADERTMenuItemTemplateHeader24LOGPENTLogPen62MENUITEMTEMPLATETMenuItemTemplate25PATTERNTPattern TLogBrush 63DCBTDCB26PALETTEENTRYTPaletteEntry64COMSTATTComStat27LOGPALETTETLogPalette65MDICREATESTRUCTTMDICreateStruct28LOGFONTTLogFont66CLIENTCREATESTRUC

21、TTClientCreateStruct29ENUMLOGFONTTEnumLogFont67MULTIKEYHELPTMultiKeyHelp30PANOSETPanose68HELPWININFOTHelpWinInfo31KERNINGPAIRTKerningPair69CTLSTYLETCtlStyle32OUTLINETEXTMETRICTOutlineTextMetric70CTLtypeTCtltype33FIXEDTFixed71CTLINFOTCtlInfo34MAT2TMat272DDEADVISETDDEAdvise35GLYPHMETRICSTGlyphMetrics7

22、3DDEDATATDDEData36POINTFXTPointFX74DDEPOKETDDEPoke37TTPOLYCURVETTTPolyCurve75DDEAACKTDDEAck38TTPOLYGONHEADERTPolygonHeader76DEVMODETDevMode77KANJISTRUCTTKanjiStruct如何将C/C+程序转译成Delphi1 c头文件分解2 基本转换2.1 名字该c-程序通常用大写字母类型标识符，例如MY_TYPE。在Delphi中，类型标识符是有T开头加上类型名称组成，不使用下划线。C类型标识符 MY_TYPE的Delphi类型是TMyType。在C早

23、期的头文件的指针类型为 LPMY_TYPE。翻译成Delphi应该是PMyType才符合Borland的风格。常量的命名通常与原来的名称，包括大写字母和下划线。以下是一些实例CDelphi-翻译typedef struct _IMAGE_FILE_HEADER WORD Machine;WORD NumberOfSections;DWORD TimeDateStamp;DWORD PointerToSymbolTable;DWORD NumberOfSymbols;WORD SizeOfOptionalHeader;WORD Characteristics; IMAGE_FILE_H

24、EADER,*PIMAGE_FILE_HEADER;typePImageFileHeader = TImageFileHeader;TImageFileHeader = packed recordMachine: Word;NumberOfSections: Word;TimeDateStamp: DWORD;PointerToSymbolTable: DWORD;NumberOfSymbols: DWORD;SizeOfOptionalHeader: Word;Characteristics: Word;end;#define LANG_NEUTRAL 0x00#defi

25、ne LANG_AFRIKAANS 0x36#define LANG_ALBANIAN 0x1C#define LANG_ARABIC 0x01#define LANG_BASQUE 0x2D#define LANG_BELARUSIAN 0x23#define LANG_BULGARIAN 0x02#define LANG_CATALAN 0x03#define LANG_CHINESE 0x04CONSTLANG_NEUTRAL = $00;LANG_AFRIKAANS = $36;LANG_ALBANIAN = $1C;LANG_ARABIC = $01;LANG_BASQUE = $2

26、D;LANG_BELARUSIAN = $23;LANG_BULGARIAN = $02;LANG_CATALAN = $03;LANG_CHINESE = $04;2.2 单元附属C和C+使用 #include在另一头文件和源文件包含头文件。Delphi是引用单元（在USES中引用）代替头文件。例如：D3D.H includes D3DTYPES.H, D3DCAPS.HD3DTYPES.H includes DDRAW.H一个单元包含一个头文件的翻译，所以 D3DTYPES.H 和 D3DCAPS.H被 请求并入D3D.H因此翻译成delphi，则是D3D.PAS USES 需要 D3DT

27、YPES.PAS， D3DCAPS.PAS。在windows.pas Borland已经为我们做了很多工作。Borland的Windows单元包含了大部分的基本的Windows的数据类型，所以任何翻译单元需要Windows数据类型需要在其USES中引用 Windows 单元。注意：在Delphi 1，为windows.pas替代winprocs.pas和wintypes.pas，因为这两个单元包括在windows.pas的Delphi32位版本定义的Delphi 16位。在Delphi 2中，为了向后兼容，这两个文件在 Delphi的32位版本中也被当作windows.pas。一些头文件包含源

28、码不被直接翻译成 Pascal语言，但头文件在汇编上的影响必须纳入翻译代码。例如，PSHPACK.H 包含编译器指令，不能直接翻译到Delphi； PSHPACK4.H指示编译器使用4字节的包。2.3 #defines 和 constantsC语言中#define被用于：声明一个常量；声明一个条件编译的符号；声明一个宏；C语言中常量的声明如下：#define NameOfConstant Value 例如：#define TIME_ZONE_ID_UNKNOWN 0 #define TIME_ZONE_ID_STANDARD 1#define TIME_ZONE_ID_DAYLIGHT 2翻译

29、成delphi：CONST TIME_ZONE_ID_UNKNOWN = 0; TIME_ZONE_ID_STANDARD = 1; TIME_ZONE_ID_DAYLIGHT = 2;2.3.1 16进制的值C语言#define MY_CONSTANT 0xFF Delphi 语言：CONST MY_CONSTANT = $FF;3 数据类型3.1 基本数据类型CDelphiUNSIGNED LONGDword (Longint)UNSIGNED SHORTwordINTintegerUNSIGNED CHARbyte, char (Depending on usage)3.2 winapi

30、公共类型Windows API定义了一些常见API类型。这是建议的名称，翻译尽可能使用。windows.pas声明了许多这些类型，其中一些如下：API Type 声明在DELPHI中用法Type 说明ULONGULongDWordPULONGPULongDWordUSHORTUShortSmallIntPUSHORTPUShortSmallIntUCHARUCharBytePUCHARPUCharByteDWORDDWordDWordPDWORD, LPDWORDPDWordDWordBOOLBoolBoolPBOOL, LPBOOLPBoolBoolBYTEByteBytePBYTE, LP

31、BYTEPByteByteWORDWordWordPWORD, LPWORDPwordWordINTIntegerIntegerPINT, LPINTPIntegerIntegerLPVOIDPointerUntyped PointerUINTUIntIntegerPUINT, LPUINTPUIntIntegerWCHARWCharWideCharPWCHAR, LPWCHAR, PCWCH, LPCWCH, NWPSTR,PWCharWideCharPWSTR, LPWSTRLPWStrWideCharPCWSTR, LPCWSTRLPCWStrWideCharPCH, LPCHPChar

32、CharPSTR, LPSTRLPStrCharPCSTR, LPCSTRLPCStrCharHANDLETHandleDWordPHANDLE, LPHANDLEPHandleDWord3.3数组方法1C语言中的数组：DWORD MyType4翻译成DELPHI如下：MyType = Array 0.3 of DWord;方法2：其它：#define NumberOfElements 5 /.typedef struct _MyRec DWORD MyArrayNumberOfElements MyRec, *PMyRec翻译成delphiConst NumberOfElements = 5

33、 /.Type TmyArray = Record MyArray : Array 0.NumberOfElements-1 of DWord; end;3.4 字符串c中的字符串：在C语言中，字符串是char类型的数组。通常，一个字符串的声明中使用常数声明指定的最大字符串长度，如下面的示例所示：#define RAS_MaxEntryName 256#define RASENTRYNAMEA struct tagRASENTRYNAMEARASENTRYNAMEA DWord dwSize; CHAR szEntryName RAS_MaxEntryName + 1 ;第一行声明一个 RAS

34、_MaxEntryName常数为256，指定字符串的最大长度值。在后面声明一个结构体，包含一个null结尾的字符串：CHAR szEntryName RAS_MaxEntryName + 1 ；在Delphi 中:szEntryName : Array 0.RAS_MaxEntryName of Char;为什么不是数组 0.RAS_MaxEntryName+1 of Char？一个C数组从0开始到声明指定元素的数目。因此，在Delphi中，数组 0.RAS_MaxEntryName+1相当于C中RAS_MaxEntryName+2。3.5枚举类型：方法1typedef enum _FINDE

35、X_INFO_LEVELS FindExInfoStandard,FindExInfoMaxInfoLevel FINDEX_INFO_LEVELS;翻译成Delphi:Type TFindExInfoLevels = (FindExInfoStandard, FindExInfoMaxInfoLevel);该项目 FindExInfoStandard 序号值是0。在Delphi中每个计数从0开始。方法2：另一种情况：Typedef enum_ACL_INFORMATION_CLASS AclRevisionInformation = 1,AclSizeInformation ACL_INFO

36、RMATION_CLASS声明中“= 1”强制在C开始序号值为1。这是在Delphi中不可能的。3.6 结构、记录3.6.1简单结构结构类型：在Delphi中的RECORD类型与C结构相似。结构通常用typedef关键字定义，但它也有可能用#define。C中的形式如下：Struct|Union OptIdentifier TagName  FieldDefinitions  . Name .你可以忽略tagname。这是为后续的参考结构。如何在一个结构内的定义字段：#define RASENTRYNAMEA struct tagRASENTR

37、YNAMEARASENTRYNAMEA DWORD dwSize; CHAR szEntryName RAS_MaxEntryName + 1 ;此声明定义了一个名叫 RASENTRYNAMEA记录（结构）。Delphi风格的名字为T RASENTRYNAMEA。这个结构包含两个字段：一是具有指定类型为DWORD的dwSize。第二是字符数组，有ras_maxentryname1个元素。翻译成delphiTYPE PRASEntryName = TRASEntryName TRASEntryName = Record dwSize : DWORD; szEntryName : Array 0.

38、RAS_MaxEntryName of Char end记住，你不可能声明的字符数组的范围为0到ras_maxentryname +1。原因是，在C元素的数目被指定的，但在Delphi中的元素范围被指定。3.6.2 结构中的联合类型unions在结构中C联合类型可翻译为Delphi记录变体类型。在联合结构中的块声明不连续但覆盖。typedef struct _PROCESS_HEAP_ENTRY PVOID lpData; DWORD cbData; BYTE cbOverhead; BYTE iRegionIndex; WORD wFlags; union struct HANDLE hMe

39、m; DWORD dwReserved 3 ; Block; struct DWORD dwCommittedSize; DWORD dwUnCommittedSize; LPVOID lpFirstBlock; LPVOID lpLastBlock; Region; ; PROCESS_HEAP_ENTRY, *LPPROCESS_HEAP_ENTRY, *PPROCESS_HEAP_ENTRY;翻译成 Delphi:type PProcessHeapEntry = TProcessHeapEntry; TProcessHeapEntry = Record lpData: Pointer;

40、cbData: DWord; cbOverhead: Byte; iRegionIndex: Byte; wFlags: Word; case Integer of 0: (Block: Record hMem: Thandle Reserved : Array 0.2 of DWord; end); 1: (Region: Record dwCommittedSize: DWord; dwUnCommittedSize: DWord; lpFirstBlock: Pointer; lpLastBlock: Pointer end); end;记录的变体部分以Case Integer of开头

41、。每个变体由一个序数值确定。这个整数值当做类型被使用时没有意义，但是所必需的声明。请注意一个变体 (case-)记录和一个没有CASE-声明记录之间的区别以下翻译错了：type PPRocessHeapEntry = TProcessHeapEntry; TProcessHeapEntry = Record lpData: Pointer; cbData: DWord; cbOverhead: Byte; iRegionIndex: Byte; wFlags: Word; Block: Record hMem: Thandle Reserved : Array 0.2 of DWord; en

42、d; Region: Record dwCommittedSize: DWord; dwUnCommittedSize: DWord; lpFirstBlock: Pointer; lpLastBlock: Pointer end; end;这个错误的翻译会引起 Block 和 Region在内存中是连续的，不重叠，如下：LpData, cbData, cbOverhead, iRegionIndex, wFlagsHMem, dwReservedDwCommittedSize, dwUnCommittedSize, lpFirstBlock, lplastBlock3.6.3 packed

43、record压紧记录（对齐）如果记录压紧（对齐），然后使用16位或32位的首字节的字段开始字节被对齐（也就是记录）。这明显加快CPU访问字段，但消耗更多的内存。旧的API（从16位以来）通常使用的包装结构（一个或两个字节对齐）。这是16位Delphi默认：如果你写record或packed record，在Delphi 1没有区别。delphi32默认下为四字节对齐，虽然一些API在Win32下 使用packed records。在API中，知道哪种对齐的类型被使用是很重要的，因为记录的大小取决于对齐。下面的例子说明了2和4字节编码对齐之间差异：TmyRecNotPacked = Record

44、 FieldA : Word; FieldB: LongInt; FieldC: Byte;End;TmyRecPacked = packed Record FieldA : Word; FieldB: LongInt; FieldC: Byte;End;Offset01234567891011TMyRecNoPackedAA.BBBBC.TMyRecPackedAABBBBC现在，如何判断是否需要压紧。在微软的API中，使用了两种方法。一是明确和简单的：#PRagma pack(n)如果n是1或2使用 packed关键词，但如果n是4不要使用 packed。然而，微软使用 #inc

45、lude <filename>通过在包含文件中放置压紧编译指示字来控制压紧。下列包含文件用于控制压紧方法：#include意义压紧请求pshpack1.h#pragma pack (1)Yespshpack2.h#pragma pack (2)Yespshpack3.h#pragma pack (3)Yespshpack4.h#pragma pack (4)NoPoppack.hBack to previous packing?如果头文件包含以下行：#include <pshpack1.h>你可以把它理解为#pragma pack(1)，并且在记录中使用 packed

46、关键词，从现在直到遇到另外一个pshpack?.h或poppack.H的包含。四字节对齐的（非压紧记录）在delphi32是默认。但是如果用户更改编译器选项和关闭4字节对齐咋办？如果你需要确保4字节对齐启用，您必须在单元的顶部插入下面的行：$ALIGN ON单元头必须看起来至少像这样：Unit MyUnit; $ALIGN ON你可以用$ALIGN 指令显式代替使用 packed关键词，太，但我更喜欢明确的压紧，因为它覆盖 $ALIGN ON并完全确定。注：一个字段的长度是奇数字节提出了一个问题，如果你遇到 #pragma pack(2)和使用 packed关键词。该字段在字节边界上将关闭压紧

47、，当他在字边界上被压紧时。将寻求处理这种情况的解决方案。4. 宏命令在C中可以定义宏。宏在Delphi中是不可用的，所以必须翻译C-宏功能来使用它。在大多数情况下，基于文档中关于他的信息来翻译宏比直接代码翻译更容易些。一个宏的示例： #define PRIMARYLANGID(lgid) (Word )(lgid) & 0x03ff) 在这里，很显然，宏观接受整数。这个宏的有效的翻译是：Function PRIMARYLANGID (lgid: DWord): DWord; Begin Result := lgid and $03FF End;下面的宏接受任何数据类型作为参数：#def

48、ine max(a,b) (a) > (b) ? (a) : (b)比较参数a和一个参数b值并返回较大值。因此，我们可以通过任何数据类型的函数，使用的变体变量：Function Max (A, B: Variant): Variant;Begin If A > B then Result := A else Result := BEnd;我推荐基于对宏的文档的基础上进行Delphi的转移。有时不可能把C宏以1:1的翻译成delphi，并保证对应关系。例如，一些头文件在 #define语句中使用宏来声明常量。这是来自CLUSAPI头文件的一个例子。#define CLUSPROP_S

49、YNTAX_VALUE( type, format ) (DWORD) (type << 16) | format)随后的声明使用宏命名 CLUSTER_PROPERTY_SYNTAX 计算常数的值：typedef enum CLUSTER_PROPERTY_SYNTAX CLUSPROP_SYNTAX_ENDMARK = CLUSPROP_SYNTAX_VALUE( CLUSPROP_TYPE_ENDMARK, CLUSPROP_FORMAT_UNKNOWN ), CLUSPROP_SYNTAX_NAME = CLUSPROP_SYNTAX_VALUE( CLUSPROP_TYP

50、E_NAME, CLUSPROP_FORMAT_SZ ), CLUSPROP_SYNTAX_RESCLASS = CLUSPROP_SYNTAX_VALUE( CLUSPROP_TYPE_RESCLASS,CLUSPROP_FORMAT_DWORD ),在Delphi中我们不能这样做，此外，Delphi不允许枚举项的值被分配值。该宏为了翻译成delphi必须解决。我们可以把#define 语句翻译为以下的Delphi函数：Function CLUSPROP_SYNTAX_VALUE (dwType: DWORD; dwFormat: DWORD): DWORD;Begin Result :=

51、(dwType shl 16) or dwFormat;End;然而，函数调用在常量声明中是不可能的。为此，我们声明常数如下，也就是直接将内容计算出来：CONST CLUSPROP_SYNTAX_ENDMARK = CLUSPROP_TYPE_ENDMARK shl 16 or CLUSPROP_FORMAT_UNKNOWN; CLUSPROP_SYNTAX_NAME = CLUSPROP_TYPE_NAME shl 16 or CLUSPROP_FORMAT_SZ; CLUSPROP_SYNTAX_RESCLASS = CLUSPROP_TYPE_RESCLASS shl 16 or CLU

52、SPROP_FORMAT_DWORD;实际上，在这种情况下，我建议将宏作为一个整体为一个函数，它可以提供给应用程序有用。5 条件句6 函数6.1 基本的让我们用下面的c-声明作为声明一个函数的一个例子：WINADVAPIBOOLWINAPIControlService( SC_HANDLE hService, DWord dwControl, LPSERVICE_STATUS lpServiceStatus );Options ReturnValueTypeOptions FunctionName ( ParameterList )ReturnValueType:指定函数的返回值的类型。在上面的例子中返回值的类型是布尔。如果函数没有返回值是使用关键字void，在Delphi中的翻译成一个过程。请注意，这个类型的标识符也可以被“隐藏”在一个使用#define定义的标识符中。Options:Options可以指定一个标志象征的调用约定，且/或其他关键词告诉编译器在问题中如何处理