没办法,刚学编程,需要一段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的。

解决方案 »

  1.   

    头文件CGirl.h中
     class CGirl
     {
      public :
      __property int Prettiness={read=FGetPrettiness,write=FSetPrettiness};
      ...//(以下略去其他公共成员若干)
     private:
      int FPrettiness;
     ...//(以下略去其他私有数据成员若干)
      int __fastcall FGetPrettiness();
      void __fastcall FSetPrettiness (int vPrettiness)
     ...//(以下略去其他私有方法成员若干)
     }; 代码文件CGirl.cpp中
     int __fastcall CGirl:: FGetPrettiness()
      {
       return FPrettiness;
      }
     void __fastcall CGirl:: FSetPrettiness (int vPrettiness)
      {
       if (vPrettiness<=3 && vPrettiness>=0)
       FPrettiness=v FPrettiness;
      }