Mega Code Archive
TIntellectualCopyright
<![CDATA[
Title: TIntellectualCopyright
Question: Not so sure this will work, but I am sure you all get the drift. Please add your own comments :-
Answer:
type
TPaymentOptions = (Free,Charge);
TIntellectualCopyrightPosition = (BelongsToNoOneExceptAuthors, Stolen);
TUserOpinions = (Angry, Happy);
Td3kPosition = (Everything Is Fine, BullshitMode);
TIntellectualCopyright = Class(TObject)
private
FPaymentOptions: TPaymentOptions;
FIntellectualCopyrightPosition: TIntellectualCopyrightPosition;
FUserOpinions: TUserOpinions;
Fd3kPosition: Td3kPosition;
public
property PO: TPaymentOptions read FPaymentOptions write FPaymentOptions;
procedure SuddenInexplicableNeedToRipOffDelphiProgrammers;
published
constructor Create; override;
destructor Destroy; override;
end;
implementation
uses // or is this abuses ?
EveryOnesCode,
GoodwillGestures;
var
IC: TIntellectualCopyright;
constructor TIntellectualCopyright.Create;
begin
initValues;
end;
destructor TIntellectualCopyright.Destroy;
begin
NeedWeSpellItOut;
end;
procedure initValues();
begin
FPaymentOptions := Free;
TIntellectualCopyrightPosition := BelongsToNoOnExceptAuthors;
TUserOpinions := Happy;
Td3kPosition := EverthingIsFine;
end;
procedure SuddenInexplicableNeedToRipOffDelphiProgrammers();
begin
FPaymentOptions := Charge;
TIntellectualCopyrightPosition := Stolen;
TUserOpinions := Angry;
Td3kPosition := BullshitMode;
end;
initialization
IC := TIntellectualCopyright.Create;
finalization
IC.Free;
end.
]]>