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

[dizzy]

*kreisch* Ist das Code oder Wirrwarr? Ich weiss schon warum ich C nicht wirklich mag...

(Sorry, konnt's mir net verkneifen.)

[Kernel32.DLL]

Geht mir ähnlich...

Sry, aber wie wäre es denn ma mir einer ordentlichen Formatierung??

[pajofego]

Zitat von dizzy:

*kreisch* Ist das Code oder Wirrwarr? Ich weiss schon warum ich C nicht wirklich mag...

(Sorry, konnt's mir net verkneifen.)

Sorry, ist ein bischen verwirrend, ist halt c(zääääh)++

Kurz gesagt soll es folgendes machen:

Im Debugmodus soll er mit in das Debugfenster eine Fehlermeldung reinschreiben, gleichzeitig hätte ich gerne die Zeilennummer und den Dateiname der Unit! Anschliessend folgt eine Meldung durch ein Dialogfeld. Übergabeparameter ist ein pointer! (Ist alles für DirectX-Anwendungen!)

Vielleicht wird meine Absicht jetzt etwas klarer.

[Tubos]

Das mit der Zeilennummer und dem Dateinamen geht in Delphi nicht.
Wollte ich auch schonmal machen, und hier hat man mir gesagt dass das nicht geht.

[maximov]

hmmm...

KA wie dieser salat nach delphi zu konvertiren ist aber _FILE_ und _LINE_ gibt es in delphi nicht, (nur mit extremen umwegen über die JCL und Map-files). Das einfachste wäre vielleicht eine Assertion, denn die zeigt die zeilen nummer und datei an:

assert(hr=0,'Result böse!'); ist aber möglicher weise nicht das, was du willst.

[pajofego]

Gut, also die Compiler Macros __FILE__ und __LINE__ gibt es wohl noch nicht in Delphi. Würde aber trotzdem ganz gerne etwas mehr über die JCL und Map-Files erfahren. Wo kann ich dazu etwas finden.

Was ich noch unbedingt wissen müsste wären die Präprozessoranweisungen

Code:

#ifdef _DEBUG
...
#else
...
#endif

wie sieht denn sowas in Delphi aus?

Danke

P.S.: Hat niemand das gleiche Problem wie ich mit dem Code-Explorer?

[Oxmyx]

Naja, da es __FILE__ und __LINE__ nicht in Delphi gibt, gestaltet sich die Übersetzung äußerst unspektakulär:

Delphi-Quellcode:

{$IFDEF _DEBUG}
function CHECK_HR(p: HRESULT): HRESULT;
var
  acError: array[0..255] of Char;
begin
  if FAILED(p) then begin
    ZeroMemory(@acError, sizeof(Char) * 256);
    strlfmt(acError, sizeof(Char) * 256, 'DEBUG: HRESULT FAILED %i', [p]);
    MessageBox(0, acError, 'HRESULT FAILED', MB_OK or MB_ICONERROR);
  end;
  Result := p;
end;
{$ELSE}
function CHECK_HR(p: HRESULT): HRESULT;
begin
  Result := p;
end;
{$ENDIF}

Da es in Delphi keine Makros gibt, muss die Funktion aber anders aufgerufen werden. In C++ würde man einfach schreiben:

Code:

CHECK_HR(...);

In Delphi stattdessen:
if FAILED(CHECK_HR(...)) then Exit; Der Code ist übrigens nicht getestet, müsste aber funktionieren.

[MagiSun1]

begin
if
then
else
end;

[woki]

Hi,

nun, es geht schon einiges und auch ganz einfach, am einfachsten solange das Programm im Kontext der IDE (lokal oder remote debugging) läuft.

Schau dir mal die Compilerdirektive IFDEF, assertions, das Ereignisprotokoll, outputdebugstring, nicht anhaltende Breakpoints, und die anderen Möglichkeiten der Breakpoints an.

Damit kannst du sehr komfortabel Protokollieren und auswerten was passiert, und die schreiben auch Sourcefilenamen und Zeile in das Protokoll, und das kann man dann auch speichern.

Grüsse
Woki