Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовой проект групп 3341 и 3382 / DMCore / Tag
.pas 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.
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.
Соседние файлы в папке DMCore