Курсовой проект групп 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.