Changeset 87

Timestamp:

Jan 3, 2022, 10:21:21 PM (2 years ago)

Author:

chronos

Message:

• Fixed: Build on older FPC.

Location:

trunk

Files:

• UContact.pas (modified) (3 diffs)
• vCardStudio.lpr (modified) (1 diff)

trunk/UContact.pas

@@ -130 +130 @@
     Properties: TContactProperties;
     ContactsFile: TContactsFile;
-    class function GetFields: TContactFields;
+    class function GetFields: TContactFields; static;
     function HasField(FieldIndex: TContactFieldIndex): Boolean;
     function FullNameToFileName: string;
@@ -139 +139 @@
     constructor Create;
     destructor Destroy; override;
-    class destructor Destroy;
+    class destructor Destroy2;
     procedure SaveToStrings(Output: TStrings);
     function LoadFromStrings(Lines: TStrings; StartLine: Integer = 0): Integer;
@@ -1076 +1076 @@
 end;
 
-class destructor TContact.Destroy;
+class destructor TContact.Destroy2;
 begin
   FreeAndNil(FFields);

trunk/vCardStudio.lpr

@@ -8 +8 @@
   {$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, UFormMain, UCore, Common, UDataFile, SysUtils, UFormContacts,
-  UFormContact, UFormFindDuplicity, UFormGenerate, UFormError, UQuotedPrintable,
-  UFormProperty
+  Forms, UFormMain, UCore, Common, UDataFile, SysUtils
   { you can add units after this };