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.
theiller.dialogs's Introduction
theiller.dialogs's People
Recommend Projects
-
React
A declarative, efficient, and flexible JavaScript library for building user interfaces.
-
Vue.js
๐ Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
-
Typescript
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
-
TensorFlow
An Open Source Machine Learning Framework for Everyone
-
Django
The Web framework for perfectionists with deadlines.
-
Laravel
A PHP framework for web artisans
-
D3
Bring data to life with SVG, Canvas and HTML. ๐๐๐
-
Recommend Topics
-
javascript
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
-
web
Some thing interesting about web. New door for the world.
-
server
A server is a program made to process requests and deliver data to clients.
-
Machine learning
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
-
Visualization
Some thing interesting about visualization, use data art
-
Game
Some thing interesting about game, make everyone happy.
Recommend Org
-
Facebook
We are working to build community through open source technology. NB: members must have two-factor auth.
-
Microsoft
Open source projects and samples from Microsoft.
-
Google
Google โค๏ธ Open Source for everyone.
-
Alibaba
Alibaba Open Source for everyone
-
D3
Data-Driven Documents codes.
-
Tencent
China tencent open source team.