Advertisement
Guest User

Unit2

a guest
Jun 12th, 2019
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.97 KB | None | 0 0
  1. unit Unit2;
  2.  
  3. interface
  4.      uses Unit1;
  5. type
  6. TCircle=class
  7.   private
  8.   x,y,r:integer;
  9.   public
  10.   constructor create;overload;
  11.   constructor create(ax,ay,ar:integer);overload;
  12.   procedure SetR(ar:integer);
  13.   procedure SetXY(ax:integer; ay:integer);
  14.   function getx:integer;
  15.   function gety:integer;
  16.   function getr:integer;
  17.   procedure moveto(ax,ay:integer);
  18.   procedure show;
  19. end;
  20. implementation
  21.  
  22. constructor tcircle.create;
  23. begin
  24.   x:=0;y:=0;r:=0;
  25. end;
  26. constructor tcircle.create(ax: Integer; ay: Integer; ar: Integer);
  27. begin
  28.   //inherited Create (ax,ay, ar);
  29. //x:=ax;y:=ay;
  30. r:=ar;
  31. end;
  32. function tcircle.getx:integer;
  33. begin
  34. result:= (inherited x);
  35. end;
  36. function tcircle.gety:integer;
  37. begin
  38. result:=y;
  39. end;
  40. function tcircle.getr:integer;
  41. begin
  42. result:=r;
  43. end;
  44. procedure tcircle.show;
  45. begin
  46.   form1.image1.canvas.ellipse(x-r,y-r,x+r,y+r);
  47. end;
  48. procedure tcircle.moveto(ax: Integer; ay: Integer);
  49. begin
  50. show;
  51. x:=x+ax;
  52. y:=y+ay;
  53. show;
  54. end;
  55. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement