delphi源码转换为C++ Builder源码

本人80年代初出生，正好赶上电子信息高速发展的时代。记得刚接触的计算机高级语言就是PASCAL，但只是草草学了点语法。但开始接触C时，一发不可收拾，C->TBC->C++->BC++->VC++->GUN  C->C++ Builder->VC++ .NET，踏踏实实、一步一个脚印，程序员的人生乐趣在哪？？？

最近拿到一个Delphi源码，准备在这个基础上进行扩充，但Delphi总是没有C用起来得心应手（当然Delphi是一个优秀的开发工具），所以我决心把Delphi源码转为C＋＋ Builder代码，反正我要完全改写。

在此我把转换对应的关键字分别列在下表：

 

delphi 语法	C++ Builder 语法	备注
var	无意义
函数参数 var	引用类型 &	如：Fun(var P : Integer) -> Fun(int &p)
uses	include
Integer	int
Boolean	bool
procedure	void __fastcall
nil	NULL
<>	!=
:=	=
Parent is TPanel	dynamic_cast<TPanel *>Parent != 0
Parent as TPanel	(TPanel*)Parent
begin  ... end	{...}
begin  ... end;	{...}
if ... then	if (...)
while ... do	while (...)
const Digits: array[0..9] of Char = '0123456789';	char Digits[10] = "0123456789";	数组申明
inherited	ParaentClass::Function	调用父类的函数
ssLeft in Shift	Shift.Contains()	是否包含
try    ...              finally ...	try { ... } __finally { ... }
try    ...              except ..	try { ... } catch(...) { ... }

待续！