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

最新推荐文章于 2021-01-12 10:04:20 发布

原创最新推荐文章于 2021-01-12 10:04:20 发布 · 3.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #c++ #integer #pascal #开发工具 #fun

GNU C++/VC/BC/TC 专栏收录该内容

0 篇文章

订阅专栏

博主80年代初出生，接触过PASCAL、C等多种编程语言。最近拿到Delphi源码，因使用Delphi不如C得心应手，决心将其转为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(...) { ... }