Статья: Трансляция кода Delphi в код C++Builder
Цель этой статьи состоит в том, чтобы помочь вам понять основные различия и подобия между C++ и Object Pascal (язык, используемый в Delphi от Borland), и помочь вам в преобразовании проекта написанного на Delphi в проект написанный на C++ (С++Builder от Borland).В жалбнейшем в этой статье вместо терминов Object Pascal и Delphi будет употребляться аббревиатура "OP".
Типы данных
Op | Размер или значение | С++ |
Shortlnt | целое 8 бит | signed char |
Smalllnt | целое 16 бит | short |
Longlnt | целое 32 бита | int |
Byte | целое без знака 8 бит | unsigned char |
Word | целое без знака 16 бит | unsigned short |
Integer | целое 32 бита | int |
Cardinal | целое без знака 32 бита | unsigned int |
Boolean | true,false или | bool |
ByteBool | true,false или целое без знака 8 бит | unsigned char |
WordBool | true,false или целое без знака 16 бит | unsigned short |
LongBool | true,false или целое без знака 32 бита | BOOL (WinAPI) |
AnsiChar | символ без знака 8 бит | char |
WideChar | символ UNICODE размером в слово | wchar_t |
Char | символ без знака 8 бит | char |
AnsiString | AnsiString Delphi | AnsiString |
String[n] | прежний стиль строк Delphi, n= 1..255 бит | SmallString<n> |
ShortString | прежний стиль строк Delphi, 255 бит | SmallString<255> |
String | AnsiString Delphi | AnsiString |
Single | число с плавающей запятой 32 бита | float |
Double | число с плавающей запятой 64 бита | double |
Extended | число с плавающей запятой 80 бит | long double |
Real | число с плавающей запятой 32 бита | double |
Pointer | родовой указатель 32 бита | void * |
PChar | указатель на символы 32 бита | unsigned char * |
PAnsiChar | указатель на символы ANSI 32 бита | unsigned char * |
Comp | число с плавающей запятой 64 бита | Comp |
OleVariant | значение variant OLE | OleVariant |
Ключевые слова
Следует отметить, что язык С++ является регистро зависимым, в отличие от OP , который таковым не является.
C++ |
#define #elif #else #endif #error #if #ifdef #ifndef #include #line #pragma #printf #undef auto break case catch char class const const_cast continue default delete do double dynamic_cast else enum except extern false finally float for friend goto if inline int long mutable namespace new operator private protected public register reinterpret_cast return short signed sizeof static static_cast struct switch template this throw true try typedef typeid union unsigned using virtual void volatile while xalloc new delete |
OP |
ABSOLUTE AND ARRAY ASM ASSEMBLER BOOLEAN BYTE CASE CHAR COMP CONST CONSTRUCTOR DESTRUCTOR DIV DO DOUBLE DOWNTO ELSE EXTENDED EXTERNAL FALSE FAR FILE FOR FORWARD FUNCTION GOTO IF IMPLEMENTATION IN INLINE INTEGER INTERFACE INTERRUPT LABEL LONGINT MOD NEAR NIL NOT OBJECT OF OPERATOR OR PACKED PRIVATE PROCEDURE PROGRAM REAL RECORD REPEAT SET SHL SHORTINT SHR SINGLE STRING TEXT THEN TO TRUE TYPE UNIT UNTIL USES VAR VIRTUAL WHILE WITH WORD XOR |
Операторные признаки конца
C++
Многие выражения заканчиваются точкой с запятой ;
Хотя имеется парочка исключений. Например при подключении заголовочных файлов точка с запятой не требуется
#include "foo.h" // не заканчивается точкой с запятой;
#define MAXNAMELENGTH 35 // также не заканчивается точкой с запятой;
OP
Все выражения заканчиваются точкой с запятой;
Объявление переменных
C++
Максимальная длина переменной 32 символа - может быть и больше но будут распознаны только первые 32 символа.
Переменные могут быть объявлены в любом месте кода, ну и соответственно переменные должны быть обявлены до того места где они будут использоваться.
// ... какойтокод ...
char sName[10];
int iCount, iLoop, iValToReach;
double dMaxLoan, dTotal;
float fMaxRate = 123.875;
OP
Максимальная длина переменной 63 символа -может быть и больше но будут распознаны только первые 63 символа.
Переменные должны объявляться в блоке "var" вначале процедуры или функции или в определении объекта до объявления функций и процедур.Значения переменных не могут быть назначены внутри блока var .
// ... какойтокод ...
function PayBack_d(var dAmount: double): double ;
var
iCount, iLoop, iValToReach: integer ;
dMaxLoan, dTotal, dMaxRate: double ;
begin
dMaxRate := 123.875;
--> ЧИТАТЬ ПОЛНОСТЬЮ <--