Changeset 29 for trunk/UContact.pas


Ignore:
Timestamp:
Nov 24, 2021, 7:34:57 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Use fgl and generics instead of contnrs and TObjectList.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        66*.res
        77vCardStudio.exe
         8vCardStudio.dbg

  • trunk/UContact.pas

    r21 r29  
    66
    77uses
    8   Classes, SysUtils, Contnrs, Dialogs, UDataFile, LazUTF8, base64;
     8  Classes, SysUtils, fgl, Dialogs, UDataFile, LazUTF8, base64;
    99
    1010type
    … …  
    3232  { TContactFields }
    3333
    34   TContactFields = class(TObjectList)
     34  TContactFields = class(TFPGObjectList<TContactField>)
    3535    function AddNew(Name: string; Index: TContactFieldIndex; DataType:
    3636      TDataType): TContactField;
    … …  
    8686  { TContacts }
    8787
    88   TContacts = class(TObjectList)
     88  TContacts = class(TFPGObjectList<TContact>)
    8989    ContactsFile: TContactsFile;
    9090    function AddNew: TContact;
Note: See TracChangeset for help on using the changeset viewer.