プログラム言語で会話するスレ

TEroGenger = class
protected
　　procedure DrawPicture;virtual;abstract;
end;


T3233310=class(TEroGenger)
public
　　procedure DrawPicture;override;
　　procedure Kuwa;
end;

procedure T3233310.DrawPicture;
begin
　　//以下企業秘密 (｀ロ´)！
〜〜〜〜〜〜〜〜
　　//
end;

TIkegamiAkane=class(TEroGenger)
private
　　procedure TracePicuture(Src:TEroGenger);
public
　　procedure DrawPicture;override;
　　procedure LimitSale;
end;

procedure TIkegamiAkane.DrawPicture;
begin
　　TracePicuture(g3233310);

　　//Deleted 200X/10/12
　　//TracePicuture(gItaruHinoue);
　　//
end;

procedure TIkegamiAkane.TracePicuture(Src:TEroGenger);
begin
　　Src.DrawPicture;
end;