Changeset 82 for trunk/Forms/UFormFindDuplicity.pas
- Timestamp:
- Dec 21, 2021, 5:16:41 PM (4 years ago)
- File:
- 
      - 1 edited
 
 - 
          
  trunk/Forms/UFormFindDuplicity.pas (modified) (2 diffs)
 
Legend:
- Unmodified
- Added
- Removed
- 
      trunk/Forms/UFormFindDuplicity.pasr73 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.
  
