clientu.pas

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

unit ClientU;

interface

type

  TClient = class (TObject)
  private
    FAccNo: string;
    FCName: string;
  public     
    constructor Create (ACName, AnAccNo: string);
    destructor Destroy; override;
    function GetAccNo: string;  // Get access methods
    function GetCName: string;
    procedure SetAccNo(const AnAccNo: string); // Set access method
    procedure SetCName(const ACName: string);
  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; // then initialise data field values
  FCName := ACName;
end; // end constructor TClient.Create

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

function TClient.GetAccNo: string;
begin
  GetAccNo := FAccNo;
end; // end function TClient.GetAccNo

function TClient.GetCName: string;
begin
  GetCName := FCName;
end; // end function TClient.GetCName

procedure TClient.SetAccNo(const AnAccNo: string);
begin
  FAccNo := AnAccNo;
end; // end procedure TClient.SetAccNo

procedure TClient.SetCName(const ACName: string);
begin
  FCName := ACName;
end; // end procedure TClient.SetCName

end. // end ClientU