Changeset 132 for trunk/Packages/Common


Ignore:
Timestamp:
Apr 10, 2022, 11:18:50 AM (4 years ago)
Author:
chronos
Message:
  • Fixed: TObject invalid typecast problem with generics.
Location:
trunk/Packages/Common
Files:
1 deleted
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/Common

    • Property svn:ignore

      •  

        old new  
        11lib
         2Common.pas

  • trunk/Packages/Common/UCommon.pas

    r127 r132  
    77  {$IFDEF UNIX}baseunix,{$ENDIF}
    88  Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf, Graphics,
    9   FileUtil; //, ShFolder, ShellAPI;
     9  FileUtil, Generics.Collections; //, ShFolder, ShellAPI;
    1010
    1111type
     12  TObjects = TObjectList<TObject>;
    1213  TArrayOfByte = array of Byte;
    1314  TExceptionEvent = procedure(Sender: TObject; E: Exception) of object;

  • trunk/Packages/Common/UListViewSort.pas

    r128 r132  
    66
    77uses
    8   {$IFDEF Windows}Windows, CommCtrl, LMessages, {$ENDIF}Classes, Graphics, ComCtrls, SysUtils,
    9   Controls, DateUtils, Dialogs, Forms, Grids, StdCtrls, ExtCtrls,
    10   LclIntf, LclType, LResources, Generics.Collections, Generics.Defaults;
     8  {$IFDEF Windows}Windows, CommCtrl, LMessages, {$ENDIF}Classes, Graphics,
     9  ComCtrls, SysUtils, Controls, DateUtils, Dialogs, Forms, Grids, StdCtrls,
     10  ExtCtrls, UCommon, LclIntf, LclType, LResources, Generics.Collections,
     11  Generics.Defaults;
    1112
    1213type
    … …  
    1718  TCompareEvent = function (Item1, Item2: TObject): Integer of object;
    1819  TListFilterEvent = procedure (ListViewSort: TListViewSort) of object;
    19 
    20   TObjects = TObjectList<TObject>;
    2120
    2221  { TListViewSort }
Note: See TracChangeset for help on using the changeset viewer.