Changeset 130 for trunk/Packages
- Timestamp:
- Apr 9, 2022, 12:03:02 PM (3 years ago)
- Location:
- trunk/Packages/VCard
- Files:
-
- 7 added
- 2 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/VCard/UVCard.pas
r129 r130 4 4 5 5 uses 6 Classes, SysUtils, Dialogs, LazUTF8, Base64, Graphics, UListViewSort,6 Classes, SysUtils, Dialogs, LazUTF8, Base64, Graphics, 7 7 Generics.Collections, Generics.Defaults; 8 8 … … 139 139 property Encoding: TPropertyEncoding read GetEncoding write SetEncoding; 140 140 end; 141 142 TObjects = TObjectList<TObject>; 141 143 142 144 { TContactProperties } … … 253 255 VCardEncoding = 'ENCODING'; 254 256 VCardCharset = 'CHARSET'; 257 258 procedure Register; 255 259 256 260 … … 354 358 SMySpace = 'MySpace'; 355 359 360 procedure Register; 361 begin 362 RegisterComponents('Common', [TVCard]); 363 end; 364 356 365 function GetNext(var Text: string; Separator: string): string; 357 366 begin
Note:
See TracChangeset
for help on using the changeset viewer.