請教各位; 因為我第一次用OO的觀念來coding,有一些地方還搞不清楚,請不吝指證    我宣告一個父類別Tsprite, 然後宣告一個子類別Tstudent 來繼承Tsprite並宣告成陣列型態TSpriteArray ,我的問題是,我在父類別中實作了一個 draw 繪出學生圖形的方法, 並在子類別的 students.shownameflag=true 時才一並秀出學生姓名, 那在這個例子中,Tsprite and Tstudent 類別要如何宣告才能讓Tsprite.draw 類別方法能看到Tstudent 類別內宣告的FShowNameFlag 變數??    是不是要射程全域變數才行?    Thanks    -=======================================  

     TSprite = class
private
  FStudentID: string; // student Id
  FStudentName: string;
  FClassName: string; // class name
...
public
  constructor Create; virtual;
  destructor Destroy; override;
  procedure Draw(x,y:integer;Canvas: TCanvas); virtual; // 繪製角色
...
end;    TSpriteArray = array[0..TILE_NUM_Y - 1, 0..TILE_NUM_X - 1] of TSprite; // 所有學生    // Student 類別
TStudent = class(TSprite)
private
   FShowNameFlag: boolean;
   FStudent: TSpriteArray;
   procedure Set_ShowNameFlag(const Value: boolean);
 public
   property ShowNameFlag:boolean read FShowNameFlag write Set_ShowNameFlag;
    property Sprite[X, Y: Integer]: TSprite read GetSprite; default;
...    end;    var
  Students: TStudent;    // 所有學生    implementation
...
procedure TSprite.Draw(x,y:integer;Canvas: TCanvas);
begin
...
 //繪出角色圖形
...
 if  ShowNameFlag  then  Canvas.textout(x,y,text);//秀出學生姓名;
// 要如何宣告,才能看到 Tstudent下的 ShowNameflag變數
...    end;
...
procedure TStudent.Set_ShowNameFlag(const Value: boolean);
begin
  FShowNameFlag := Value;
end;    

父代不可能預佑子代有甚麼新變數而使用的。 所以，可能的方法是 1. 既然父代要使用到 ShowNameFlag，就直接宣告在父代 2. 在子代操控的話，先查看 ShowNameFlag Ture 時才呼叫父代的 draw，父代不用再檢查 3. 使用獨立的變數，但這便不是 OO Programming 了而且很易亂。

我的想法:    TSprite = class private   FStudentID: string; // student Id   FStudentName: string;   FClassName: string; // class name ... protected   ...   //宣告為虛擬抽象函式   procedure Draw(x,y:integer;Canvas: TCanvas); virtual; abstract;// 繪製角色 ... end;    TSpriteArray = array[0..TILE_NUM_Y - 1, 0..TILE_NUM_X - 1] of TSprite; // 所有學生    // Student 類別 TStudent = class(TSprite) private    ... public    ...    //Override it!    procedure Draw(x,y:integer;Canvas: TCanvas); override; end;    implementation ... procedure TStudent.Draw(x,y:integer;Canvas: TCanvas); begin    //繪出角色圖形    ...    if  ShowNameFlag  then  Canvas.textout(x,y,text);//秀出學生姓名; end;    

我的想法:    TSprite = class private   FStudentID: string; // student Id   FStudentName: string;   FClassName: string; // class name ... protected   ...   //宣告為虛擬抽象函式   procedure Draw(x,y:integer;Canvas: TCanvas); virtual; abstract;// 繪製角色 ... end;    TSpriteArray = array[0..TILE_NUM_Y - 1, 0..TILE_NUM_X - 1] of TSprite; // 所有學生    // Student 類別 TStudent = class(TSprite) private    ... public    ...    //Override it!    procedure Draw(x,y:integer;Canvas: TCanvas); override; end;    implementation ... procedure TStudent.Draw(x,y:integer;Canvas: TCanvas); begin    //繪出角色圖形    ...    if  ShowNameFlag  then  Canvas.textout(x,y,text);//秀出學生姓名; end;