Changeset 87 for trunk


Ignore:
Timestamp:
Jan 3, 2022, 10:21:21 PM (3 years ago)
Author:
chronos
Message:
  • Fixed: Build on older FPC.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/UContact.pas

    r82 r87  
    130130    Properties: TContactProperties;
    131131    ContactsFile: TContactsFile;
    132     class function GetFields: TContactFields;
     132    class function GetFields: TContactFields; static;
    133133    function HasField(FieldIndex: TContactFieldIndex): Boolean;
    134134    function FullNameToFileName: string;
     
    139139    constructor Create;
    140140    destructor Destroy; override;
    141     class destructor Destroy;
     141    class destructor Destroy2;
    142142    procedure SaveToStrings(Output: TStrings);
    143143    function LoadFromStrings(Lines: TStrings; StartLine: Integer = 0): Integer;
     
    10761076end;
    10771077
    1078 class destructor TContact.Destroy;
     1078class destructor TContact.Destroy2;
    10791079begin
    10801080  FreeAndNil(FFields);
  • trunk/vCardStudio.lpr

    r39 r87  
    88  {$ENDIF}
    99  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
    1311  { you can add units after this };
    1412
Note: See TracChangeset for help on using the changeset viewer.