Changeset 87 for trunk/UContact.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: Build on older FPC.

File:

• trunk/UContact.pas (modified) (3 diffs)

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);