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);