Var MyButton:TButton; MyButton:=TButton.create(self); MyButton.Parent:=self; |
TButton *MyButton; MyButton = new TButton(this); MyButton -> Parent=this; |
| MyButton.destroy; | MyButton->TButton::~TButton(); |
{$define ABCD}
...
{$ifdef ABCD}
xxxxx
{$else}
yyyyy
{$endif}
|
#define ABCD ... #ifdef ABCD xxxxx #else yyyyy #endif |
function abcd(u:integer):integer; begin result:=0; inc(k); end; |
// do it this way : have an internal
// variable named result or whatever
int abcd(int u)
{
int myresult;
myresult =0;
k++;
return myresult;
}
// don't do it this way : as return
// leaves the procedure immediately.
int abcd(int u)
{
return 0; // leaves immediately.
k++; // is never done !!!
}
|
MyListBox.Items.Add(MyEdit.Text); becomes MyListBox->Items->Strings->Add(MyEdit->Text);
type TMyEvent=procedure(u:integer); of object; becomes typedef void __fastcall (__closure *TMyEvent)(int); type MyProcType=procedure(u:integer); becomes typedef void (*MyProcType) (int);