DELPHI與.Net

程序開發中......... [注明:该Blog中的信息都并非原创,只是作为个人的阅读笔记]

vcl.net overload学习

type

  Tmyclass =class(System.Object)
  private
    Fname: string;

    public

    procedure set_name(const Value: string);
    property name:string read Fname write set_name;

    constructor Create; overload;

    constructor Create(const setprivate:string);overload;


  end;

{ Tmyclass }


procedure TForm1.Button2Click(Sender: TObject);
  var s:Tmyclass;
begin
   s :=Tmyclass.Create ;
   s.name :='小贺';
   showmessage(s.name)

end;

constructor Tmyclass.Create;
begin
  inherited;
end;

constructor Tmyclass.Create(const setprivate: string);
begin
  Fname := setprivate;
  inherited Create;
//这个很重要,一定要加上,.......

end;

procedure Tmyclass.set_name(const Value: string);
begin
  Fname := Value;
end;

posted on   人淡如菊  阅读(271)  评论(0编辑  收藏  举报

编辑推荐:
· 智能桌面机器人:用.NET IoT库控制舵机并多方法播放表情
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
阅读排行:
· DeepSeek火爆全网,官网宕机?本地部署一个随便玩「LLM探索」
· 开发者新选择:用DeepSeek实现Cursor级智能编程的免费方案
· 【译】.NET 升级助手现在支持升级到集中式包管理
· 独立开发经验谈:如何通过 Docker 让潜在客户快速体验你的系统
· 并发编程 - 线程同步(二)
< 2005年8月 >
31 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 1 2 3
4 5 6 7 8 9 10

导航

统计

点击右上角即可分享
微信分享提示