Pascal nach C++ konvertieren

  • zu konvertierender Pascal Quellcode (Testunit.pas):
unit TestUnit;
interface

type

    MyEnum = (meOne, meTwo, meThree);
    function DoSomething(Value : MyEnum) : string;
    var

        I : Integer;
        Buffer : array [0..255] of Char;

    implementation

        function DoSomething(Value : MyEnum) : string;
        begin

            case Value of

                meOne : Result := 'One';
                meTwo : Result := 'Two';
                meThree : Result := 'Three';

            end;

        end;

end.
  • der passende Header (*.hpp) kann wie oben beschrieben, oder auch auf der Kommandozeile per Hand generiert werden: dcc32 -jphn TestUnit.pas
  • DCC32.EXE ist der Pascal compiler, der Schalter „-jphn“ teilt dem Pascalcompiler mit, eine *.hpp und eine *.obj für den BC++Builder zu generieren
  • die fertig generierte Testunit.hpp:
#ifndef TestUnitHPP
#define TestUnitHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <SysInit.hpp> // Pascal unit
#include <System.hpp> // Pascal unit

namespace Testunit
{
    #pragma option push -b-
    enum MyEnum { meOne, meTwo, meThree };
    #pragma option pop

    extern PACKAGE int I;
    extern PACKAGE char Buffer[256];
    extern PACKAGE AnsiString __fastcall DoSomething(MyEnum Value);
} /* namespace Testunit */

#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Testunit;
#endif
#pragma option pop // -w-
#pragma option pop // -Vx

#pragma delphiheader end.

#endif // TestUnit
  • befreit vom Ballast sieht die Testunit.hpp nun so aus:
enum MyEnum { meOne, meTwo, meThree };
int I;
char Buffer[256];
AnsiString __fastcall DoSomething(MyEnum Value);
  • die Deklarationen wurden jetzt generiert, der Delphi-Code in der *.pas muss jetzt noch „per Hand“ selber umgesetzt werden 🙂

Schreibe einen Kommentar