Raindrops.pas

gistfile1.txt

unit uRaindrops;

interface

type
  TRainDrop = class
  public
    function Convert(Value: Integer): string;
  end;

function RainDrops: TRainDrop;

implementation

uses
  SysUtils;

function RainDrops: TRainDrop;
begin
  // No need to call TRainDrop.Create ???
end;

{ TRainDrop }

function TRainDrop.Convert(Value: Integer): string;
begin
  Result := '';
  if Value mod 3 = 0 then
    Result := Result + 'Pling';

  if Value mod 5 = 0 then
    Result := Result + 'Plang';

  if Value mod 7 = 0 then
    Result := Result + 'Plong';

  if Result = '' then
    Result := Value.ToString;
end;

end.