Поиск объекта по параметрам в списке.

[Sibedir]

Сообщение от Аватар

Я это предлагал, множество для того, что бы не сравнивать символьные строки

  for i:=0 to Count-1 do begin
    Data:=Items[i];
    if (not (myParm1 in xMyParams) or (Pos(TLStr(aFindData.Genealogy), TLStr(Data.Genealogy)) > 0)) and
       (not (myParm2 in xMyParams) or (Pos(TLStr(aFindData.OwnerAddress), TLStr(Data.OwnerAddress)) > 0)) and
...

Просто, лаконично, понятно, работоспособно, производительно
Это-ли не то, что надо?

[Человек_Борща]

Осуществляется поиск не конкретной записи, а записей в полях которых есть искомый текст.
Чтобы найти конкретную запись, достаточно полностью заполнить уникальное поле(там таких минимум 2).

Если нужно 100% совпадение то я узнаю сколько параметров ищет пользователь(тут уже от перечисляемых типов необойтись), а в конце просто проверю условие "Сколько должны найти == сколько нашли".

Но я все же не понимаю конструкции и логики этого кода:

If (not (myParm1 in xMyParams) or (Pos(TLStr(aFindData.Genealogy), TLStr(Data.Genealogy)) > 0)) ..

Осторожно, возможен взрыв мозга:
Если ((ИскатьМеня1 нету в ПараметрыПоиска) ИЛИ (СловоX есть в строкеY))

Где логика? Если юзер указал не искать ИскатьМеня1, зачем лишний раз делать поиск в строке?

[Sibedir]

Взрыва мозга не произошло
Если not (myParm1 in xMyParams) вернет True, то (Pos(TLStr(aFindData.Genealogy), TLStr(Data.Genealogy)) > 0) выполнятся не будет
Хотя, наверное, лучше так

If ((myParm1 in xMyParams) and (Pos(TLStr(aFindData.Genealogy), TLStr(Data.Genealogy)) > 0)) ..

Но и тут можно ошибиться. Нужно смотреть ASM код этой строки, чтобы лучше понять

[Аватар]

Разбираем по полочкам:
В любой строке сначала проверется not (myParmX in xMyParams). Если True - то этот параметр не задан и не надо проверять, то что после or. Оно и не будет проверяться в этом случае. Если же False - этот параметр задан и проверится то, что после or. В результате True всей строки - или параметр не задан или задан и значение то, что ищется. Иначе False и дальнейшие строки уже не будут проверяться.

На будущее

Выражение1 and Выражение2 - вычисление выражений слева направо, если Выражение1=False, то дальше вычисления не производятся и весь резулт False
Выражение1 or Выражение2 - вычисление выражений слева направо, если Выражение1=True, то дальше вычисления не производятся и весь резулт True

АДД

Если поиск не по всем заданным, а хотя бы по одному из заданных, то условия можно переделать так

    if ((myParm1 in xMyParams) and (Pos(TLStr(aFindData.Genealogy), TLStr(Data.Genealogy)) > 0)) or
       ((myParm2 in xMyParams) and (Pos(TLStr(aFindData.OwnerAddress), TLStr(Data.OwnerAddress)) > 0)) or
...

[Человек_Борща]

Аватар,

Выражение1 and Выражение2 - вычисление выражений слева направо, если Выражение1=False, то дальше вычисления не производятся и весь резулт False
Выражение1 or Выражение2 - вычисление выражений слева направо, если Выражение1=True, то дальше вычисления не производятся и весь резулт True

Об этом не знал. Благодарю.

Просто, лаконично, понятно, работоспособно, производительно
Это-ли не то, что надо?

Ну вроде красиво, но форматтер знает своё дело.

Все хорошо. Но читабельность получает оценку: -1000 по 10 бальной шкале.

1. Кто знает, как отключить форматирование код в заданном блоке текста(регионе)?
2. У меня есть Перечисляемый тип TMyTypeSet = (myP1, myP2,...); и TMyType = set of TMyTypeSet;
как ещё можно вставлять параметры кроме как вот так?:

  if OwnerEditChk.Checked then
  begin
    fData.FindData := fData.FindData + [fdOwnerName];
    fData.OwnerName := OwnerEdit.Text;
  end;

[Аватар]

Обработчик один на все чекбоксы, в TAG-и заранее раставить Integer-эквивалент TMyTypeSet. fData.OwnerName можно всем огульно присвоить независимо от состоянии чекбокса

procedure TForm1.CheckBoxClick(Sender: TObject);
begin
  if TCheckBox(Sender).Checked
    then fData.FindData:=fData.FindData+[TMyTypeSet(TCheckBox(Sender).Tag)]
    else fData.FindData:=fData.FindData-[TMyTypeSet(TCheckBox(Sender).Tag)];
end;

[Sibedir]

Сообщение от Человек_Борща

Все хорошо. Но читабельность получает оценку: -1000 по 10 бальной шкале.

Каму как. По мне так оценка 8.
А если

  if (not (myParmSGT   in xMyParams) or
             (Pos(TLStr(aFindData.DataSGT  ), TLStr(Data.DataSGT  )) > 0)) and
     (not (myParmFDERM in xMyParams) or
             (Pos(TLStr(aFindData.DataFDERM), TLStr(Data.DataFDERM)) > 0)) and
     (not (myParmSD    in xMyParams) or
             (Pos(TLStr(aFindData.DataSD   ), TLStr(Data.DataSD   )) > 0)) and
...

, то будет твердая 9.


--------------------------------------------------------------------------------------------------------

TMyTypeSet = (myP1, myP2,...); и TMyType = set of TMyTypeSet;

Обычно делают наоборот

TMyType = (myP1, myP2,...);
TMyTypeSet = set of TMyType;

--------------------------------------------------------------------------------------------------------

как ещё можно вставлять параметры кроме как вот так?:
Код:

  if OwnerEditChk.Checked then
  begin
    fData.FindData := fData.FindData + [fdOwnerName];
    fData.OwnerName := OwnerEdit.Text;
  end;

Да можно и так оставить. Чем не нравится-то?
Если вариант с тегами, то можно вообще TFindData оформить в виде массива array [TMyType] of String. Но есть проблема с датой. Но и здесь можно что-нибудь придумать.