Changeset 56 for trunk/UContact.pas

Timestamp:

Dec 8, 2021, 4:44:21 PM (3 years ago)

Author:

chronos

Message:

• Added: Show textual name of contact field in contact field form and prefill field name and attributes. Update that name back according used field name and attributes.

File:

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

trunk/UContact.pas

@@ -30 +30 @@
     cfVersion, cfAnniversary);
 
+  { TContactField }
+
   TContactField = class
     SysName: string;
@@ -38 +40 @@
     ValueIndex: Integer;
     DataType: TDataType;
+    function GroupsContain(Name: string): Boolean;
+    function Match(ASysName: string; AGroups: TStringArray): Boolean;
   end;
 
@@ -46 +50 @@
       Title: string; Index: TContactFieldIndex; DataType:
       TDataType; ValueIndex: Integer = -1): TContactField;
+    function GetBySysName(SysName: string): TContactField;
+    function GetBySysNameGroups(SysName: string; Groups: TStringArray): TContactField;
     function GetByIndex(Index: TContactFieldIndex): TContactField;
     procedure LoadToStrings(AItems: TStrings);
@@ -238 +244 @@
 end;
 
+{ TContactField }
+
+function TContactField.GroupsContain(Name: string): Boolean;
+var
+  I: Integer;
+begin
+  Result := False;
+  for I := 0 to Length(Groups) - 1 do
+    if Groups[I] = Name then begin
+      Result := True;
+      Break;
+    end;
+end;
+
+function TContactField.Match(ASysName: string; AGroups: TStringArray): Boolean;
+var
+  I: Integer;
+begin
+  Result := ASysName = SysName;
+  if Result then begin
+    for I := 0 to Length(AGroups) - 1 do begin
+      if not GroupsContain(AGroups[I]) then begin
+        Result := False;
+        Break;
+      end;
+    end;
+  end;
+end;
+
 { TContactProperties }
 
@@ -491 +526 @@
   Result.DataType := DataType;
   Add(Result);
+end;
+
+function TContactFields.GetBySysName(SysName: string): TContactField;
+var
+  I: Integer;
+  C: Integer;
+begin
+  C := Count;
+  I := 0;
+  while (I < Count) and (Items[I].SysName <> SysName) do Inc(I);
+  if I < Count then Result := Items[I]
+    else Result := nil;
+end;
+
+function TContactFields.GetBySysNameGroups(SysName: string; Groups: TStringArray
+  ): TContactField;
+var
+  I: Integer;
+  C: Integer;
+begin
+  C := Count;
+  I := 0;
+  while (I < Count) and not Items[I].Match(SysName, Groups) do Inc(I);
+  if I < Count then Result := Items[I]
+    else Result := nil;
 end;