unit Item;

TItem = class(TObject)

private

FName: string;

FSellIn: Integer;

FQuality: Integer;

public

constructor Create(const AName: string; const ASellIn, AQuality: Integer);

function ToString: string; override;

property Name: string read FName write FName;

property SellIn: Integer read FSellIn write FSellIn;

property Quality: Integer read FQuality write FQuality;

end;

System.SysUtils;

constructor TItem.Create(const AName: string; const ASellIn, AQuality: Integer);

inherited Create;

FName := AName;

FSellIn := ASellIn;

FQuality := AQuality;

end;

function TItem.ToString: string;

Result := Format('%s, %d, %d', [Name, SellIn, Quality]);

end;

end.