Курсовой проект групп 3341 и 3382 / DMCore / Tag

unit Tag;

interface

  type
    DMMTag = class
    protected
      m_ID : integer;
      m_Readable : AnsiString;

    public
      constructor Create(ident : integer; readable : AnsiString);
      function getID() : integer;
      function getReadable() : AnsiString;
    end;

implementation

  constructor DMMTag.Create(ident : integer; readable : AnsiString);
  begin
    m_ID := ident;
    m_Readable := readable;
  end;

  function DMMTag.getID() : integer;
  begin
    result :=  m_ID;
  end;

  function DMMTag.getReadable() : AnsiString;
  begin
     result := m_Readable;
  end;

end.