Поиск Ctrl+F в темповой таблицы

[Константин!]

Цитата:

Сообщение от .Quattro.

Присвоив этому поле значение и сделав Update формы произодет позиционирование на записи, если она существует.

О пирикольно век живи век учись, а я setposition всегда пользовал.
Вот набросал код для приметивного поиска по аналогии кнопки "Найти Следующую"

IF LineDimCode = 'Товар' THEN BEGIN
  IF STRPOS(DescriptionFindText,'*') = 0 THEN
	DescriptionFindText:= DescriptionFindText+'*';
  ItemLoc.SETFILTER(Description,DescriptionFindText);
  IF NOT CallFind  THEN BEGIN
	IF ItemLoc.FINDSET THEN BEGIN
	  CallFind:=TRUE;
	  //SETPOSITION(Rec.FIELDCAPTION(Code)+'=CONST('+ItemLoc."No."+')' );
	  Rec.Code:=ItemLoc."No.";
	END;
  END
  ELSE BEGIN
	IF ItemLoc.NEXT <>0 THEN BEGIN
	  SETPOSITION(Rec.FIELDCAPTION(Code)+'=CONST('+ItemLoc."No."+')' );
	END
	ELSE
	 CallFind:=FALSE;

  END;
END;

LineDimCode Text30 это переменая для выбора значения в textBox-се "Выводить в строках" (уже существует)
DescriptionFindText Text250- это пременная для нашего textBox-са в котором будем вводить параметры поиск по наименованию
CallFind Boolean - Флажок определяющий первый раз мы запускаем поиск или нет.
ItemLoc Record 27 - локальная таблица товаров, но заведена C\al Globals как и все переменные.

[romeo]

Я бы на OnFind считал бы наложенные на реку фильтры и далее, в OnFind, OnNext смотрел, попадает ли готовая к показу запись под этот фильтр. Код писать лень.. Вот как-то так.