- Timestamp:
- Jan 3, 2022, 10:21:21 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UContact.pas
r82 r87 130 130 Properties: TContactProperties; 131 131 ContactsFile: TContactsFile; 132 class function GetFields: TContactFields; 132 class function GetFields: TContactFields; static; 133 133 function HasField(FieldIndex: TContactFieldIndex): Boolean; 134 134 function FullNameToFileName: string; … … 139 139 constructor Create; 140 140 destructor Destroy; override; 141 class destructor Destroy ;141 class destructor Destroy2; 142 142 procedure SaveToStrings(Output: TStrings); 143 143 function LoadFromStrings(Lines: TStrings; StartLine: Integer = 0): Integer; … … 1076 1076 end; 1077 1077 1078 class destructor TContact.Destroy ;1078 class destructor TContact.Destroy2; 1079 1079 begin 1080 1080 FreeAndNil(FFields); -
trunk/vCardStudio.lpr
r39 r87 8 8 {$ENDIF} 9 9 Interfaces, // this includes the LCL widgetset 10 Forms, UFormMain, UCore, Common, UDataFile, SysUtils, UFormContacts, 11 UFormContact, UFormFindDuplicity, UFormGenerate, UFormError, UQuotedPrintable, 12 UFormProperty 10 Forms, UFormMain, UCore, Common, UDataFile, SysUtils 13 11 { you can add units after this }; 14 12
Note:
See TracChangeset
for help on using the changeset viewer.