Code:
unit CCategory;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs;
type
TCategory = class (TObject)
private
property Id: Integer read GetId;
property Name: string read GetName write SetName;
property ParentCategory: Integer read GetParentCategory write
SetParentCategory;
public
function GetId: Integer;
function GetName: string;
function GetParentCategory: Integer;
procedure SetName(Value: string);
procedure SetParentCategory(Value: Integer);
end;
procedure Register;
implementation
procedure Register;
begin
end;
{
********************************** TCategory ***********************************
}
function TCategory.GetId: Integer;
begin
end;
function TCategory.GetName: string;
begin
end;
function TCategory.GetParentCategory: Integer;
begin
end;
procedure TCategory.SetName(Value: string);
begin
end;
procedure TCategory.SetParentCategory(Value: Integer);
begin
end;
end.
Bookmarks