clientu.pas

来自「source for card readers」· PAS 代码 · 共 38 行

unit ClientU;

interface

type

  TClient = class (TObject)
  private
    FAccNo: string;
    FCName: string;
  public
    constructor Create (ACName, AnAccNo: string); 
    destructor Destroy; override;
    property AccNo: string read FAccNo write FAccNo;
    property CName: string read FCName write FCName;
  end; // end TClient = class (TObject)

implementation

uses Dialogs;  // for ShowMessage below

{ TClient }

constructor TClient.Create(ACName, AnAccNo: string);
begin
  inherited Create;  // First invoke superclass's constructor
  FAccNo := AnAccNo;
  FCName := ACName;
end; // end constructor TClient.Create 

destructor TClient.Destroy;
begin
  ShowMessage ('About to destroy client object');	// 'tidy up'
  inherited Destroy;	// then destroy
end;  // end destructor TClient.Destroy

end. // end ClientU