■3.1 社長命令・起立!

実行例

 

D:\ObjectNou\3-1>manager.exe
寝ています
食べてます

 

↑Top

Manager.dpr

program Manager;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  UnitNingen in 'UnitNingen.pas';
var Ningen : TNingen; begin try Ningen := TNingen.Create('牛尾', 169); try Ningen.Taberu; Ningen.Neru; finally Ningen.Free; end; except on E:exception do Writeln(E.message); end; end.

↑Top

UnitNingen.pas

unit UnitNingen;

interface

type
  TNingen = class(TObject)
  private
    { Private 宣言 }
    FName : string;
    FShintyou: integer;
  public
    { Public 宣言 }
    constructor Create(const Name:string; const Shintyou:integer);
    procedure Taberu;
    procedure Neru;
  end;
implementation
{ TNingen }
constructor TNingen.Create(const Name:string; const Shintyou:integer); begin FName := Name; FShintyou := Shintyou; end;
procedure TNingen.Neru; begin Writeln('寝ています'); end;
procedure TNingen.Taberu; begin Writeln('食べてます'); end;
end.

↑Top

目次次へ