zoukankan      html  css  js  c++  java
  • TPersistent 与持久化的一些学习和Assign对象CLONE

    unit fykEdit;

    interface

    uses
      Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

    type
      TfykEdit = class(TEdit)
      private
        { Private declarations }
      protected
        { Protected declarations }
      public
        { Public declarations }
          procedure Assign(Source: TPersistent); override;
      published
        { Published declarations }
      end;

    procedure Register;

    implementation


    { TfykEdit }

    procedure TfykEdit.Assign(Source: TPersistent);//可以进行对象CLONE
    begin
      if Source is TfykEdit then
      begin
        self.Text  :=TfykEdit(Source).Text ;
        exit;
      end;
      inherited Assign(Source);

    end;


    procedure Register;
    begin
      RegisterComponents('Standard', [TfykEdit]);
    end;

    end.

  • 相关阅读:
    数据库(六)
    数据库(五)
    数据库(四)
    数据库(三)
    数据库(二)
    数据库
    函数 枚举和递归
    数据类型(四) 集合
    数据库基础
    特殊集合 结构体
  • 原文地址:https://www.cnblogs.com/fuyingke/p/223951.html
Copyright © 2011-2022 走看看