jtheiller Goto Github PK

program ProjectForeverAlive;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  IDeveloper = interface['{4E9E0CB0-49AC-4455-9CFA-D5E2724E9B80}']
  end;

  IMachine = interface['{9C45ADC2-08C2-4D9E-BEA3-BEE87AF7A718}']
  end;

  IHumam = interface(IMachine)['{BF7B51A1-2A23-4E9C-8FE4-B4EDB08BFF05}']
  function IsAlive: Boolean;
  end;

  THumam = class(TInterfacedObject, IHumam, IMachine, IDeveloper)
  private
    FName: String;
  public
    constructor Create(AName: String);
    procedure Start;
    function IsAlive: Boolean;
    property Name: String read FName;
  end;

{ THuman }

function THumam.IsAlive: Boolean;
const
  Forever = True;
begin
  Result := Forever;
end;

procedure THumam.Start;
begin
  while IsAlive do
  begin
    WriteLn( Format('%s: %s: %s',[FormatDateTime('YYYY/MM/DD - HH:MM:SS',Now), Name, 'another new idea...']) );
  end;
end;

constructor THumam.Create(AName: String);
begin
  inherited Create;
  FName := AName;
end;

begin
  THumam.Create('Joathan Theiller').Start;
end.