Private プライベート宣言 Private プライベート宣言
Privateはそのクラス内からしかアクセスできないプライベートな内部変数、手続き、関数を宣言する場合に使用します。
Delphi ではクラスの private に宣言することで実現できます。
以下のサンプルはあんまり役に立ちそうにはないのですが、雰囲気だけ感じ取って下さい。
| ■ private の例 |
unit Unit2;
interface
type
TItem = class(TObject)
private
{ Private 宣言 }
FTanka : real;
FSuryo : real;
function GetKingaku: Currency;
public
{ Public 宣言 }
property Kingaku : Currency read GetKingaku;
end;
implementation
{ TItem }
function TItem.GetKingaku: Currency;
begin
Result := FTanka * FSuryo;
end;
end.
|