point.pas

《Kylix程序设计》一书中附带的例程源代码

unit Point;

interface

type
  TMyData = Class( TObject )
  private
    X: Integer;
    Y: Integer;
  public
    constructor Create( const X, Y: Integer ); overload;
    procedure Access( var X, Y: Integer );
    procedure Modify( const X, Y: Integer );
    function Search( Data: Pointer ): Boolean;
    destructor Destroy(); override;
  end;

implementation

constructor TMyData.Create( const X, Y: Integer );
begin
  Inherited Create();
  Self.X := X;
  Self.Y := Y;
end;

procedure TMyData.Access( var X, Y: Integer );
begin
  X := Self.X;
  Y := self.Y;
end;

procedure TMyData.Modify( const X, Y: Integer );
begin
  Self.X := X;
  Self.Y := Y;
end;

destructor TMyData.Destroy();
begin
  Inherited Destroy();
end;

function TMyData.Search( Data: Pointer ): Boolean;
begin
  if ( TMyData( Data ).X = Self.X ) and ( TMyData( Data ).Y = Self.Y ) then
    Result := true
  else
    Result := false;
end;

end.