TYPE
TBasSignle = class(TBASBASE)
......
protected
  function  GetBillInfoData(BillName:String):OleVariant;virtual;
END;    implementation
.....
function TBasSignle.GetBillInfoData(BillName:String):OleVariant;
//本程式雙檔以上需 override
// 但無法用 inherited;    begin
  if Trim(BillName)='cdsBillHead' then
     Result:=cdsBillHeadInfo.Data;
end;
END.
接著我的 b form 繼承於 a form 宣告如下    TYPE
TDMBas = class(TBasSignle)
......
protected
  function  GetBillInfoData(BillName:String):OleVariant;override;
END;    implementation
.....
function TDMBas.GetBillInfoData(BillName:String):OleVariant;
begin
  inherited;<-----這行會出錯,他告訴我型別不對
                  override的 inherited 無法傳回值嗎
                  因為如果我不傳回值就沒問題,有其它解法嗎,還是我那裡錯了
  if Trim(BillName)='cdsBillDetail' then
     Result:=cdsBillDeatilInfo.Data;
end;    END.        

function TDMBas.GetBillInfoData(BillName:String):OleVariant;
begin
  Result := inherited GetBillInfoData(BillName);
  if Trim(BillName)='cdsBillDetail' then
     Result:=cdsBillDeatilInfo.Data;
end;