Sha256: fbd6779ac79e9a431fcffa8c069120852a3d97847649a47b5dafd68fac5cc028
Contents?: true
Size: 1.8 KB
Versions: 219
Compression:
Stored size: 1.8 KB
Contents
unit uAllergies;
interface
uses System.Generics.Collections;
type
IAllergies = interface(IInvokable)
['{0A1F6B96-4CDC-4D7C-BE50-6B466CA27EB0}']
function GetAllergyList: TList<string>;
function AllergicTo(allergy: string): Boolean;
property IList: TList<string> read GetAllergyList;
end;
TAllergies = class(TInterfacedObject, IAllergies)
private
fScore: integer;
fAvailableAllergies: TDictionary<string, integer>;
function IsInAllergyScore(allergyvalue: integer): Boolean;
function GetAllergyList: TList<string>;
public
constructor Create(aScore: integer);
destructor Destroy; override;
function AllergicTo(allergy: string): Boolean;
property IList: TList<string> read GetAllergyList;
end;
implementation
constructor TAllergies.Create(aScore: Integer);
begin
fScore := aScore;
fAvailableAllergies := TDictionary<string, integer>.create;
with fAvailableAllergies do
begin
Add('eggs', 1);
Add('peanuts', 2);
Add('shellfish', 4);
Add('strawberries', 8);
Add('tomatoes', 16);
Add('chocolate', 32);
Add('pollen', 64);
Add('cats', 128);
end; //with
end;
destructor TAllergies.Destroy;
begin
if assigned(fAvailableAllergies) then
fAvailableAllergies.DisposeOf;
inherited Destroy;
end;
function TAllergies.IsInAllergyScore(allergyvalue: Integer): Boolean;
begin
result := (fScore and allergyvalue) = allergyvalue;
end;
function TAllergies.GetAllergyList: TList<string>;
var aPair: TPair<string, integer>;
begin
result := TList<string>.create;
for aPair in fAvailableAllergies do
begin
if IsInAllergyScore(aPair.Value) then
result.Add(aPair.Key);
end;
end;
function TAllergies.AllergicTo(allergy: string): Boolean;
begin
result := IsInAllergyScore(fAvailableAllergies[allergy]);
end;
end.
Version data entries
219 entries across 219 versions & 1 rubygems