Changeset 82 for trunk/Forms/UFormFindDuplicity.pas
- Timestamp:
- Dec 21, 2021, 5:16:41 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormFindDuplicity.pas
r73 r82 119 119 Items := TStringList.Create; 120 120 try 121 Contacts.ContactsFile.Fields.LoadToStrings(Items);121 TContact.GetFields.LoadToStrings(Items); 122 122 123 123 // Remove fields which are not used in contacts … … 130 130 Items.Free; 131 131 end; 132 ContactField := Contacts.ContactsFile.Fields.GetByIndex(ContactFieldIndex);132 ContactField := TContact.GetFields.GetByIndex(ContactFieldIndex); 133 133 ComboBoxField.ItemIndex := ComboBoxField.Items.IndexOfObject(ContactField); 134 134 if (ComboBoxField.Items.Count > 0) and (ComboBoxField.ItemIndex = -1) then
Note:
See TracChangeset
for help on using the changeset viewer.