Sha256: f07773134aacd5452fcc3561287ffc87ab7df91fd56dd109827a724edc596fce
Contents?: true
Size: 1.4 KB
Versions: 106
Compression:
Stored size: 1.4 KB
Contents
unit uBob;
interface
type
TBob = Class
private
class function IsSilence(aStatement: string): Boolean; static;
class function IsYelling(aStatement: string): Boolean; static;
class function IsQuestion(aStatement: string): Boolean; static;
class function IsYellingQuestion(aStatement: string): Boolean; static;
public
class function Response(aStatement: string): string; static;
End;
implementation
uses RegularExpressions, System.SysUtils;
class function TBob.IsSilence(aStatement: string): Boolean;
begin
result := aStatement.Trim = '';
end;
class function TBob.IsYelling(aStatement: string): Boolean;
begin
result := (aStatement.ToUpper = aStatement) and TRegEx.IsMatch(aStatement, '[a-zA-Z]+');
end;
class function TBob.IsYellingQuestion(aStatement: string): Boolean;
begin
result := IsQuestion(aStatement) and IsYelling(aStatement);
end;
class function TBob.IsQuestion(aStatement: string): Boolean;
begin
result := aStatement.Trim.EndsWith('?');
end;
class function TBob.Response(aStatement: string): string;
begin
if IsSilence(aStatement) then
result := 'Fine. Be that way!'
else
if IsYellingQuestion(aStatement) then
result := 'Calm down, I know what I''m doing!'
else
if IsYelling(aStatement) then
result := 'Whoa, chill out!'
else
if IsQuestion(aStatement) then
result := 'Sure.'
else
result := 'Whatever.';
end;
end.
Version data entries
106 entries across 106 versions & 1 rubygems