Changeset 28 for trunk/Application


Ignore:
Timestamp:
Nov 23, 2011, 7:17:55 PM (13 years ago)
Author:
george
Message:
  • Fixed: Compilation after last change.
Location:
trunk/Application
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UChronisClient.pas

    r27 r28  
    99
    1010type
     11  TChronisClient = class;
     12
    1113  TOrderDirection = (odNone, odAscending, odDescending);
    1214
    13   { TCondition }
     15  { TQuery }
    1416
    15   TCondition = class
     17  TQuery = class
     18    Client: TChronisClient;
    1619    OrderColumn: string;
    1720    OrderDirection: TOrderDirection;
    … …  
    2023    PageItemCount: Integer;
    2124    PageUse: Boolean;
    22     Columns: TListString;
    23     ColummsUse: Boolean;
     25    ColumnsFilter: TListString;
     26    ColummsFilterUse: Boolean;
    2427    constructor Create;
    2528    destructor Destroy; override;
     29    procedure Execute; virtual;
    2630  end;
    2731
    … …  
    3337
    3438  TChronisClient = class
    35     procedure GetItemList(Model: string; Condition: TCondition; ItemList: TItemList); virtual; abstract;
    36     procedure SetItemList(Model: string; Condition: TCondition; ItemList: TItemList); virtual; abstract;
     39    //procedure GetItemList(Model: string; Condition: TCondition; ItemList: TItemList); virtual; abstract;
     40    //procedure SetItemList(Model: string; Condition: TCondition; ItemList: TItemList); virtual; abstract;
    3741    constructor Create; virtual;
    3842  end;
    … …  
    4044implementation
    4145
     46{ TQuery }
     47
     48constructor TQuery.Create;
     49begin
     50
     51end;
     52
     53destructor TQuery.Destroy;
     54begin
     55  inherited Destroy;
     56end;
     57
     58procedure TQuery.Execute;
     59begin
     60
     61end;
     62
    4263{ TChronisClient }
    4364
    4465constructor TChronisClient.Create;
    4566begin
    46 
    47 end;
    48 
    49 
    50 { TCondition }
    51 
    52 constructor TCondition.Create;
    53 begin
    54   Columns := TListString.Create;
    55 end;
    56 
    57 destructor TCondition.Destroy;
    58 begin
    59   Columns.Free;
    60   inherited Destroy;
    6167end;
    6268

  • trunk/Application/UChronisClientDirect.pas

    r27 r28  
    1414  TChronisClientDirect = class(TChronisClient)
    1515    Server: TChronisServer;
    16     procedure GetItemList(Condition: TCondition; ItemList: TItemList); override;
    17     procedure SetItemList(Condition: TCondition; ItemList: TItemList); override;
     16    //procedure GetItemList(Condition: TCondition; ItemList: TItemList); override;
     17    //procedure SetItemList(Condition: TCondition; ItemList: TItemList); override;
    1818    constructor Create; override;
    1919    destructor Destroy; override;
    … …  
    2424{ TChronisClientDirect }
    2525
    26 procedure TChronisClientDirect.GetItemList(Condition: TCondition;
     26(*procedure TChronisClientDirect.GetItemList(Condition: TCondition;
    2727  ItemList: TItemList);
    2828begin
    … …  
    3434begin
    3535  inherited SetItemList(Condition, ItemList);
    36 end;
     36end;*)
    3737
    3838constructor TChronisClientDirect.Create;
Note: See TracChangeset for help on using the changeset viewer.