Changeset 158 for devel/web/UNews.pas

Timestamp:

Feb 18, 2009, 12:11:53 PM (16 years ago)

Author:

george

Message:

• Upraveno: Přepracován databázový objektový subsystém.

File:

• devel/web/UNews.pas (modified) (2 diffs)

devel/web/UNews.pas

@@ -12 +12 @@
   { TNewsCategory }
 
-  TNewsCategory = class(TDbObject)
+  TNewsCategory = class
+    Id: Integer;
     Title: string;
     Permission: Integer;
     procedure LoadFromDbRecord(DbRow: TAssocArray);
-    procedure Store; override;
+    procedure Store;
   end;
   
   { TNewsItem }
 
-  TNewsItem = class(TDbObject)
+  TNewsItem = class
+    Id: Integer;
     Title: string;
     Content: string;
@@ -29 +31 @@
     Category: Integer;
     procedure LoadFromDbRecord(DbRow: TAssocArray);
-    procedure Store; override;
+    procedure Store;
   end;