Hilfe bei C++ Code nach Delphi Code

[pajofego]

Hallo Leute,

nachdem ich seit mehr als einem Jahr C++ geschädigt bin brauche ich eure Hilfe um folgenden Macro aus c++ in Delphi umzuwandeln:

Code:

#ifdef _DEBUG
   #define CHECK_HR(p) {if( FAILED(hr=(p))) {char strError[300];sprintf(strError,"DEBUG: HRESULT FAILED (%i) in file %s in line %d.",int(hr),__FILE__, __LINE__);MessageBox(NULL,strError,"HRESULT FAILED",MB_OK);return hr;}}
#else
   #define CHECK_HR(p)   {if( FAILED(hr=(p))) return hr;}
#endif

Wäre cool wenn mir einer bei der Übersetzung helfen könnte bin z.Zt. komplett raus aus pascal und finde net die richtigen Befehle etc.

Noch eine Frage zur IDE!
Ich habe Delphi 6 und mich nervt es, dass wenn ich die Units wechsle der Codeexplorer den Baum wieder komplett zumacht und ich immer wieder meine Klasse öffnen muss, damit ich darin navigieren kann. Kann man das abstellen?

Danke,

pajofego