delphi property


unit Test;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, HGEWinCtrl, StdCtrls;

type

TForm1 = class(TForm)

lbl1: TLabel;

btn1: TButton;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

TMyClass = Class

private

B1 : string;

function GetField1: string;

procedure SetField1(AField: string);

public

property A1: string read GetField1 write SetField1;

end;

var

Form1: TForm1;

MyClass : TMyClass;

implementation

{$R *.dfm}

function TMyClass.GetField1: string;

begin

result := B1;

end;

procedure TMyClass.SetField1(AField: string);

begin

B1 := AField;

end;

procedure TForm1.btn1Click(Sender: TObject);

begin

MyClass := TMyClass.Create;

MyClass.A1 := '1111111111'; //赋值会调用SetField1代码段

lbl1.Caption := MyClass.A1;

end;

end.

<script src="https://code.csdn.net/snippets/F1u4Z40656T9395613M8.js"></script>