Помогите с поиском по Locate с использованием radioButton

← →
Леонид (2003-07-07 18:30) [0]

Имеется таблица с полями: Наименование, Зав. номер – string, Дата поверки (Data) и др. Нужно будет осуществлять поиск по этим полям. В программе хочу сделать edit, при вводе в который с пом. Locate перемещаться на запись, а также radioButton объединенные в группу с пом. кот. будет выбираться по какому полю будет происходить поиск.
Если информации недостаточно, могу написать подетальнее, спешка…, извините…
Также буду рад услышать и др. варианты…

← →
KDS © (2003-07-07 18:49) [1]

Обработчик для Этит на событие OnChange примерно такой
procedure TForm1.edQFindChange(Sender: TObject);
var tn,field:ShortString;
begin
tn:=Trim(edQFind.Text); //убираю пробелы по концам строки
if (Tn="") then exit; //если текст не задан - выход
case radiogroup1.itemindex of
0:field:="NUMBER";
1:field:="NAME";
2:field:="etc";
else begin
showmessage("Укажите по какому столбцу искать");
exit;
end
end;
Table1.Locate(field, tn,[loPartialKey, loCaseInsensitive]);
// искать без учета регистра и по частичному совпадению
end;

использование RadioGroup на мой вкус красивей чем просто несколько RadioButton хотябы из соображений красоты дизайна и группирования.
К тому же в свойстве Caption указываешь суть типа "Поиск по..."
а так надо лепить как минимум 3 компонента: 2 RadioButton
и 1 label для поясниловки

Помогите с поиском по Locate с использованием radioButton Найти похожие ветки