在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) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TWinControl.CreateParented */ inline __fastcall Tfrm(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
#pragma option pop
};
//-- var, const, procedure ---------------------------------------------------
}/* namespace Tp */
using namespace Tp;
#pragma option pop// -w-
#pragma option pop// -Vx
#pragma delphiheader end.
//-- end unit ----------------------------
#endif// tp
