Changeset 28 for trunk/Application/UChronisClient.pas

Timestamp:

Nov 23, 2011, 7:17:55 PM (13 years ago)

Author:

george

Message:

• Fixed: Compilation after last change.

File:

• trunk/Application/UChronisClient.pas (modified) (4 diffs)

trunk/Application/UChronisClient.pas

@@ -9 +9 @@
 
 type
+  TChronisClient = class;
+
   TOrderDirection = (odNone, odAscending, odDescending);
 
-  { TCondition }
+  { TQuery }
 
-  TCondition = class
+  TQuery = class
+    Client: TChronisClient;
     OrderColumn: string;
     OrderDirection: TOrderDirection;
@@ -20 +23 @@
     PageItemCount: Integer;
     PageUse: Boolean;
-    Columns: TListString;
-    ColummsUse: Boolean;
+    ColumnsFilter: TListString;
+    ColummsFilterUse: Boolean;
     constructor Create;
     destructor Destroy; override;
+    procedure Execute; virtual;
   end;
 
@@ -33 +37 @@
 
   TChronisClient = class
-    procedure GetItemList(Model: string; Condition: TCondition; ItemList: TItemList); virtual; abstract;
-    procedure SetItemList(Model: string; Condition: TCondition; ItemList: TItemList); virtual; abstract;
+    //procedure GetItemList(Model: string; Condition: TCondition; ItemList: TItemList); virtual; abstract;
+    //procedure SetItemList(Model: string; Condition: TCondition; ItemList: TItemList); virtual; abstract;
     constructor Create; virtual;
   end;
@@ -40 +44 @@
 implementation
 
+{ TQuery }
+
+constructor TQuery.Create;
+begin
+
+end;
+
+destructor TQuery.Destroy;
+begin
+  inherited Destroy;
+end;
+
+procedure TQuery.Execute;
+begin
+
+end;
+
 { TChronisClient }
 
 constructor TChronisClient.Create;
 begin
-
-end;
-
-
-{ TCondition }
-
-constructor TCondition.Create;
-begin
-  Columns := TListString.Create;
-end;
-
-destructor TCondition.Destroy;
-begin
-  Columns.Free;
-  inherited Destroy;
 end;