Changeset 8 for trunk/UContact.pas

Timestamp:

Feb 1, 2018, 12:51:32 PM (7 years ago)

Author:

chronos

Message:

• Added: Show all fields tab in contact form.

File:

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

trunk/UContact.pas

@@ -9 +9 @@
 
 type
+  TContactsFile = class;
+
   TStringEvent = procedure (Text: string) of object;
 
+  TDataType = (dtString, dtInteger, dtDate, dtDateTime, dtImage);
+
+  TContactFieldIndex = (cfFirstName, cfMiddleName, cfLastName);
+
+  TContactField = class
+    Name: string;
+    Index: TContactFieldIndex;
+    DataType: TDataType;
+  end;
+
+  { TContactFields }
+
+  TContactFields = class(TObjectList)
+    function AddNew(Name: string; Index: TContactFieldIndex; DataType:
+      TDataType): TContactField;
+  end;
+
+  { TContact }
+
   TContact = class
+  private
+    function GetField(Index: TContactFieldIndex): string;
+    procedure SetField(Index: TContactFieldIndex; AValue: string);
+  public
+    Parent: TContactsFile;
     Version: string;
     FirstName: string;
@@ -44 +70 @@
     Photo: string;
     XJabber: string;
+    property Fields[Index: TContactFieldIndex]: string read GetField write SetField;
   end;
 
   TContacts = class(TObjectList)
-
+    ContactsFile: TContactsFile;
   end;
 
@@ -56 +83 @@
     FOnError: TStringEvent;
     function GetNext(var Text: string; Separator: string): string;
+    procedure InitFields;
   public
+    Fields: TContactFields;
     Contacts: TContacts;
     function GetFileName: string; override;
@@ -75 +104 @@
   SUnknownCommand = 'Unknown command: %s';
 
+{ TContactFields }
+
+function TContactFields.AddNew(Name: string; Index: TContactFieldIndex;
+  DataType: TDataType): TContactField;
+begin
+  Result := TContactField.Create;
+  Result.Name := Name;
+  Result.Index := Index;
+  Result.DataType := DataType;
+  Add(Result);
+end;
+
+{ TContact }
+
+function TContact.GetField(Index: TContactFieldIndex): string;
+begin
+  case Index of
+    cfFirstName: Result := FirstName;
+    cfMiddleName: Result := MiddleName;
+    cfLastName: Result := LastName;
+  end;
+end;
+
+procedure TContact.SetField(Index: TContactFieldIndex; AValue: string);
+begin
+  case Index of
+    cfFirstName: FirstName := AValue;
+    cfMiddleName: MiddleName := AValue;
+    cfLastName: LastName := AValue;
+  end;
+end;
+
 { TContactsFile }
 
@@ -85 +146 @@
     Result := Text;
     Text := '';
+  end;
+end;
+
+procedure TContactsFile.InitFields;
+begin
+  with Fields do begin
+    AddNew('First Name', cfFirstName, dtString);
+    AddNew('Middle Name', cfMiddleName, dtString);
+    AddNew('Last Name', cfLastName, dtString);
   end;
 end;
@@ -118 +188 @@
         Add('N:' + LastName + ';' + FirstName + ';' + MiddleName + ';' + TitleBefore + ';' + TitleAfter);
       if FullName <> '' then Add('FN:' + FullName);
-      if TelCell <> '' then Add('TEL;PREF;CELL:' + TelPrefCell);
+      if TelPrefCell <> '' then Add('TEL;PREF;CELL:' + TelPrefCell);
       if TelCell <> '' then Add('TEL;CELL:' + TelCell);
       if TelHome <> '' then Add('TEL;HOME:' + TelHome);
@@ -157 +227 @@
   NewRecord: TContact;
   Command: string;
-  CommandParam: string;
   CommandPart: string;
   Charset: string;
@@ -175 +244 @@
       if Line = 'BEGIN:VCARD' then begin
         NewRecord := TContact.Create;
+        NewRecord.Parent := Self;
       end else
       if Line = 'END:VCARD' then begin
@@ -244 +314 @@
   inherited;
   Contacts := TContacts.Create;
+  Contacts.ContactsFile := Self;
+  Fields := TContactFields.Create;
+  InitFields;
 end;
 
 destructor TContactsFile.Destroy;
 begin
-  Contacts.Free;
+  FreeAndNil(Fields);
+  FreeAndNil(Contacts);
   inherited;
 end;