我有一個類別TMPHMemoryStream 繼承TMemoryStream TMPHMemoryStream = class(TMemoryStream) 我想要Override GetSize 這個method 我查了一下這個method，是在祖父類別TStream所定義的

function TMPHMemoryStream.GetSize: Int64;
var
nFileSize: int64;
begin
  if FDataStyle = False then
    inherited GetSize;       
    // 如果這樣想，我不知道要如何得到祖父類別的回傳值
    Result := self.GetSize   
    // 所以我就嘗試這樣寫，不知道可不可以呼叫到祖父
end;

所以我想要問 問題一： Result := inherited GetSize; 要怎麼寫？ 還有，假設曾祖父類別有一個GetSize，然後父類別也有一個GetSize 我該如何指定去繼承我要的函式，是不是 Result := inherited TStream.GetSize; // 曾祖父類別 Result := inherited TMemoryStream.GetSize; // 父類別 問題二： 我是否可以Asign "Size"，這一個祖父類別的Class Member var MyMemoryStream: TMPHMemoryStream; MyMemoryStream.Size = 1000;

你所說的 不妨試一試 有問題再提出        問題..希望不是最後才發生！建議一次問完！

第一，目前我的Delphi 不斷地當機，只因為我把 function TMPHMemoryStream.GetSize: LongInt; 改成 function TMPHMemoryStream.GetSize: Int64; 之後，一直出現 Stack Overflow，只要Compiler就會當機 第二，Delphi Help對於Inherited 寫的太少了，翻了幾本書也沒有找到 所以才想上來問看看！

Result:=inherited GetSize;

//宣告 function GetSize: Int64; overload;    property SIZE: Int64 read GetSize;        function TMPHMemoryStream.GetSize: Int64;varnFileSize: int64; var i:longint; begin  if FDataStyle = False then  i:=GetSize; //祖父類別的回傳值  Result := self.GetSize  end;    問題..希望不是最後才發生！建議一次問完！

經過我的測試，再加上寫信問了資策會的講師 發現Delphi 與 C OOP的機制，有些不同 關鍵字 inherited 只能宣告繼承親代 至於直接指定繼承哪一個親代，只有C 才可以 Delphi是有其限制的。 講師建議我慎選所要繼承的親代，就不需要有繼承祖父類別的需求 在此感謝各位高手的協助