求如何写类

Question

这个类要求如下
Tbus  类
1.所需要的量既属性：
机器码：name：int型 XXXXXXXX（总线名）
线的坐标起点：Q.x Q.y    int型
线的坐标终点：W.x W.y  int型
线条颜色：color
线条粗细：width 四种属性 Smallest / Small / Medium / Large
2.要求和方法
如用户无指定 则总线名首条与机器码相同 如95270001
      以次类推 第二条为95270002......
方法：告诉起点坐标 终点坐标 则画出该直线
选择相应颜色可改变线条颜色
选择相应宽度可改变线条的粗细
我想知道DELPHI平台关于写类的一般步骤
还有这个类是如何写的？
希望大侠帮忙

Answer 1

如果是画线，那你可以参考这个三折线的画法，如果是类的使用，你还是看书吧：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2973982
打开的时候多等等，代码比较多！

Answer 2

uses Windows, Graphics;type
  TWidth = (Smallest, Small, Medium, Large);  TBus = class
    Name:Integer;
    Q:TPoint;
    W:TPoint;
    Color:TColor;
    Width:TWidth;
  end;9527???

Answer 3

to: yinxu(寻路)
兄台 我就是想掌握关于类的使用
能推荐我看哪方面的书吗？

Answer 4

yinxu(寻路)的答案能滿足你的要求.
不過既然你連類都還不太明白還是不要搞的那麼復雜.

Answer 5

to Randomize
那个只是总线名而已了...我随便取的 这样也简单点 只需要用int型就可以了

Answer 6

我覺得看DELPHI的源碼是最好的書,上面關於各種類都有!

Answer 7

恩... Randomize 谢谢你的指点 我现在就是想通过例子入门
能介绍几本书籍给偶嘛

Answer 8

uses Windows, Graphics;type
  TWidth = (Smallest, Small, Medium, Large);
  
  TBus = class
  private
    FName:Integer;
    FQ:TPoint;
    FW:TPoint;
    FColor:TColor;
    FWidth:TWidth;
  protected
    property FName:integer read GetName write SetName default 9525001;
  public
    constructor Create(AOwner: TObject); override;
    destructor Destroy; override;
  end;
這就是個基本的例子

Answer 9

http://www.2ccc.com/article.asp?articleid=366