Changeset 130 for trunk/Packages


Ignore:
Timestamp:
Apr 9, 2022, 12:03:02 PM (3 years ago)
Author:
chronos
Message:
  • Modified: VCard component moved into own package VCard.
Location:
trunk/Packages/VCard
Files:
7 added
2 moved

Legend:

Unmodified
Added
Removed
  • trunk/Packages/VCard/UVCard.pas

    r129 r130  
    44
    55uses
    6   Classes, SysUtils, Dialogs, LazUTF8, Base64, Graphics, UListViewSort,
     6  Classes, SysUtils, Dialogs, LazUTF8, Base64, Graphics,
    77  Generics.Collections, Generics.Defaults;
    88
     
    139139    property Encoding: TPropertyEncoding read GetEncoding write SetEncoding;
    140140  end;
     141
     142  TObjects = TObjectList<TObject>;
    141143
    142144  { TContactProperties }
     
    253255  VCardEncoding = 'ENCODING';
    254256  VCardCharset = 'CHARSET';
     257
     258procedure Register;
    255259
    256260
     
    354358  SMySpace = 'MySpace';
    355359
     360procedure Register;
     361begin
     362  RegisterComponents('Common', [TVCard]);
     363end;
     364
    356365function GetNext(var Text: string; Separator: string): string;
    357366begin
Note: See TracChangeset for help on using the changeset viewer.