Changeset 82 for trunk/Forms/UFormFind.pas
- Timestamp:
- Dec 21, 2021, 5:16:41 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormFind.pas
r76 r82 63 63 Items := TStringList.Create; 64 64 try 65 Contacts.ContactsFile.Fields.LoadToStrings(Items);65 TContact.GetFields.LoadToStrings(Items); 66 66 67 67 // Remove fields which are not used in contacts … … 75 75 Items.Free; 76 76 end; 77 ContactField := Contacts.ContactsFile.Fields.GetByIndex(ContactFieldIndex);77 ContactField := TContact.GetFields.GetByIndex(ContactFieldIndex); 78 78 ComboBoxField.ItemIndex := ComboBoxField.Items.IndexOfObject(ContactField); 79 79 if (ComboBoxField.Items.Count > 0) and (ComboBoxField.ItemIndex = -1) then
Note:
See TracChangeset
for help on using the changeset viewer.