Changeset 37

Timestamp:

Nov 25, 2021, 3:20:15 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Build under older FPC.

File:

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

trunk/UContact.pas

@@ -37 +37 @@
 
   TContactFields = class(TFPGObjectList<TContactField>)
-    function AddNew(Name: string; Groups: TStringArray; Title: string; Index: TContactFieldIndex; DataType:
+    function AddNew(Name: string; Groups: array of string; Title: string; Index: TContactFieldIndex; DataType:
       TDataType; ValueIndex: Integer = -1): TContactField;
     function GetByIndex(Index: TContactFieldIndex): TContactField;
@@ -348 +348 @@
 { TContactFields }
 
-function TContactFields.AddNew(Name: string; Groups: TStringArray; Title: string; Index: TContactFieldIndex;
+function TContactFields.AddNew(Name: string; Groups: array of string; Title: string; Index: TContactFieldIndex;
   DataType: TDataType; ValueIndex: Integer = -1): TContactField;
+var
+  I: Integer;
 begin
   Result := TContactField.Create;
   Result.SysName := Name;
-  Result.Groups := Groups;
+  SetLength(Result.Groups, Length(Groups));
+  for I := 0 to Length(Groups) - 1 do
+    Result.Groups[I] := Groups[I];
   Result.Title := Title;
   Result.Index := Index;