delphi 关于构造方法的重写

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

THello=class

public

FStr:string;

public

constructor Hello;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

{ THello }

constructor THello.Hello;

begin

FStr:='Hello';

end;

procedure TForm1.Button1Click(Sender: TObject);

var

He:THello;

begin

HE:=THello.Hello;

ShowMessage(He.FStr);

end;

end.

推荐分享