-1

我有一些关于 Dephi 的作业（以前从未使用过，只有 c++/java，但在我的大学里，我们有 delphi 语言科目）。好吧，我需要用移动的数字制作形式，展示它们如何碰撞之类的东西。我开始像一些抽象类一样制作一个 uint

unit MyFigure;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls;

type
tPoint = record
 x,y: Double;
end;

oFigure = class
  c: TCanvas;
  pos: tPoint;
  vel: tPoint;
  r: Double;
  constructor create(coord, vect: tPoint; radius: Double);
  protected
    procedure move();
    procedure draw(); virtual;
  public
    function isIntersected(x:oFigure):boolean;
end;

implementation

  constructor oFigure.create(coord, vect: tPoint; radius: Double);
  begin
    pos.x:= coord.x;
    pos.y:= coord.y;
    vel.x:= vect.x;
    vel.y:= vect.y;
    r:=radius;
  end;

  procedure oShape.draw(); virtual;
  begin

  end;

  procedure oShape.move();
  begin
      pos.x:=  pos.x + vel.x;
      pos.y:=  pos.y + vel.y;
      oShape.draw();

  end;

  function isIntersected(o:oFigure):boolean;
  begin
     if ((oShape.pos.x - o.pos.x)*(oShape.pos.x - o.pos.x) +  (oShape.pos.y - o.pos.y)*(oShape.pos.y - o.pos.y)
          < (oShape.r + o.r)*(oShape.r + o.r)) then Result:=True;
  end;



end.

然后我创造了它的孩子。好吧，在这里我需要从画布调用 arc 方法来绘制球，但它看不到它，并且 eve 说unable to invoke code completion。怎么了？

unit Ball;

interface
uses
  MyFigure;   
type

oBall = class(oFigure);
    c: TCanvas;
    procedure draw(); override;
 end;

implementation
   procedure oBall.draw();
    begin
       c.Arc()//PROBLEM!
    end;

end.
4

1 回答 1

0

未调用代码完成，因为未在 uses 子句中指定单位图形：Try with

unit Ball;

interface
uses
  Graphics, MyFigure;

顺便说一句，您似乎没有实例化c。为此，您需要一个构造函数和一个析构函数。通常的方法是在过程 draw() 中传递一个 TCanvas 实例作为参数。在oFigure单元中，您定义了TPoint ，但 TPoint 是 RTL/VCL 的本机类型。你不需要定义它。在oFigure 中，您还将一些方法设置为受保护的，但矛盾的是，以前的变量是公共的。

于 2012-09-17T21:31:11.170 回答