Changeset 132


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
Files:
2 deleted
7 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 }

  • trunk/Packages/SynEditEx

    • Property svn:ignore

      •  

        old new  
        11lib
         2SynEditEx.pas
         3

  • trunk/Packages/VCard

    • Property svn:ignore

      •  

        old new  
        11lib
         2VCard.pas

  • trunk/Packages/VCard/UVCard.pas

    r131 r132  
    44
    55uses
    6   Classes, SysUtils, Dialogs, LazUTF8, Base64, Graphics,
     6  Classes, SysUtils, Dialogs, LazUTF8, Base64, Graphics, UCommon,
    77  Generics.Collections, Generics.Defaults;
    88
    … …  
    139139    property Encoding: TPropertyEncoding read GetEncoding write SetEncoding;
    140140  end;
    141 
    142   TObjects = TObjectList<TObject>;
    143141
    144142  { TContactProperties }
    … …  
    262260
    263261uses
    264   UQuotedPrintable, UCommon;
     262  UQuotedPrintable;
    265263
    266264const

  • trunk/Packages/VCard/VCard.lpk

    r131 r132  
    3030      <Other>
    3131        <CompilerMessages>
    32           <IgnoredMessages idx5071="True"/>
     32          <IgnoredMessages idx6058="True" idx5071="True" idx3124="True" idx3123="True"/>
    3333        </CompilerMessages>
    3434      </Other>
Note: See TracChangeset for help on using the changeset viewer.