clientu.pas

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

unit ClientU;

interface

type

  TClient = class (TObject)
  private
    FAccNo: integer;	// Now an integer
    FCName: string;
    function GetAccNo: string;
    procedure SetAccNo(const AnAccNo: string);
  public
    constructor Create (ACName, AnAccNo: string); // no destructor
    property AccNo: string read GetAccNo write SetAccNo;	// method map
    property CName: string read FCName write FCName;	// direct map
  end; // end TClient = class (TObject)

implementation

uses SysUtils;	// for Int <-> Str conversions

{ TClient }

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

function TClient.GetAccNo: string;
begin
  if FAccNo < 100000 then
    Result := IntToStr(FAccNo + 100000)
  else
    Result := IntToStr(FAccNo);
end; // end function TClient.GetAccNo

procedure TClient.SetAccNo(const AnAccNo: string);
begin
  FAccNo := StrToInt(AnAccNo);	// Client must check 6 digits max
end; // end procedure TClient.SetAccNo

end. // end ClientU