詳細な方法（7）-結果

// ポイント7：それだけでなく、結果にはより柔軟な使用
関数MyFun（b：Byte）：Char;
 begin 
  // Result：= Char（b）; {もちろんこのように書くことができます} 
  Byte（Result）：= b ;    { これで問題ありません} 
end ; 

{ システムにそのような関数があります} 
function TObject.ClassType：TClass;
 begin 
  Pointer（Result）： = PPointer（Self）^;
 end ;