GildedRose-Refactoring-Kata/Delphi/GildedRose.pas

unit GildedRose;

interface

uses
  Item,
  System.Generics.Collections;

type
  TGildedRose = class(TObject)
  private
    FItems: TObjectList<TItem>;
  public
    constructor Create(const AItems: TObjectList<TItem>);
    procedure UpdateQuality;
    property Items: TObjectList<TItem> read FItems;
  end;

implementation

{ TGildedRose }

constructor TGildedRose.Create(const AItems: TObjectList<TItem>);
begin
  inherited Create;
  FItems := AItems;
end;

procedure TGildedRose.UpdateQuality;
var
  I: Integer;
begin
  for I := 0 to Items.Count - 1 do
  begin
    if (Items[I].Name <> 'Aged Cheese') and (Items[I].Name <> 'Backstage passes to a concert') then
    begin
      if Items[I].Quality > 0 then
      begin
        if Items[I].Name <> 'Fine Italian Silk' then
        begin
          Items[I].Quality := Items[I].Quality - 1;
        end;
      end;
    end
    else
    begin
      if Items[I].Quality < 50 then
      begin
        Items[I].Quality := Items[I].Quality + 1;
        if Items[I].Name = 'Backstage passes to a concert' then
        begin
          if Items[I].SellIn < 11 then
          begin
            if Items[I].Quality < 50 then
            begin
              Items[I].Quality := Items[I].Quality + 1;
            end;
          end;

          if Items[I].SellIn < 6 then
          begin
            if Items[I].Quality < 50 then
            begin
              Items[I].Quality := Items[I].Quality + 1;
            end;
          end;
        end;
      end;
    end;

    if Items[I].Name <> 'Fine Italian Silk' then
    begin
      Items[I].SellIn := Items[I].SellIn - 1;
    end;

    if Items[I].SellIn < 0 then
    begin
      if Items[I].Name <> 'Aged Cheese' then
      begin
        if Items[I].Name <> 'Backstage passes to a concert' then
        begin
          if Items[I].Quality > 0 then
          begin
            if Items[I].Name <> 'Fine Italian Silk' then
            begin
              Items[I].Quality := Items[I].Quality - 1;
            end;
          end;
        end
        else
        begin
          Items[I].Quality := Items[I].Quality - Items[I].Quality;
        end;
      end
      else
      begin
        if Items[I].Quality < 50 then
        begin
          Items[I].Quality := Items[I].Quality + 1;
        end;
      end;
    end;
  end;
end;

end.