在Delphi区没人理会，所以来这里继续问问：》 这7句delphi代码可以翻译成C++Builder的吗？该怎么解决

在Delphi区没人理会，所以来这里继续问问：》 这7句delphi代码可以翻译成C++Builder的吗？
没办法，刚学编程，需要一段cb的代码，可只在网上找到delphi的，又看不懂，想请大家帮忙翻译一下。谢谢。
TUser=class;
...
Tfrm=class(TForm)
private:
function   A:TUser;
procedure   B(const   value:TUser);
public
property   value:TUser   read   A   write   B;
end;
function   Tfrm.A:TUser;
begin
...
end;
procedure   Tfrm.B(const   value:TUser);
begin
...
end;
====================================
谢谢大家，就是这些了，看不懂，哪位好心人帮我翻译成c＋＋Builder的。

------解决方案--------------------
class TUser;
class Tfrm:TForm
{
private:
TUser A();
void B(const TUser value);
public:
__property TUser value={read=a,write=b};
};

TUser Tfrm::A()
{
}
void Tfrm::B(const TUser value);
{
}


------解决方案--------------------
帮楼上的改一下：

class TUser;

class Tfrm : public TForm
{
private:
TUser* __fastcall A();
void __fastcall B(const TUser* value);
public:
__property TUser value = {read=a, write=b};
};

TUser* __fastcall Tfrm::A()
{
}

void __fastcall Tfrm::B(const TUser* value);
{
}


------解决方案--------------------
顶了再看。
------解决方案--------------------
路过。
------解决方案--------------------
直接将你的PAS加入BCB,可得到定义文件:
// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'tp.pas ' rev: 6.00

#ifndef tpHPP
#define tpHPP

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

//-- user supplied -----------------------

namespace Tp
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TUser;
class PASCALIMPLEMENTATION TUser : public System::TObject
{
typedef System::TObject inherited;

public:
#pragma option push -w-inl
/* TObject.Create */ inline __fastcall TUser(void) : System::TObject() { }
#pragma option pop
#pragma option push -w-inl
/* TObject.Destroy */ inline __fastcall virtual ~TUser(void) { }
#pragma option pop

};


class DELPHICLASS Tfrm;
class PASCALIMPLEMENTATION Tfrm : public Forms::TForm
{
typedef Forms::TForm inherited;

private:
TUser* __fastcall A(void);
void __fastcall B(const TUser* value);

public:
__property TUser* value = {read=A, write=B};
public:
#pragma option push -w-inl
/* TCustomForm.Create */ inline __fastcall virtual Tfrm(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
#pragma option pop
#pragma option push -w-inl
/* TCustomForm.CreateNew */ inline __fastcall virtual Tfrm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
#pragma option pop
#pragma option push -w-inl
/* TCustomForm.Destroy */ inline __fastcall virtual ~Tfrm(void) { }