Procedure FindRec(What,Mes:String;DS:TDataSet;sFields:array of String;
foFromBegin,foCaseSansitive,ShowMes:Boolean);
{
What - строка для поиска (editFind.Text)
DS - таблица (TTable,TQuery и т.д.)
Fields - список полей, по которым нужно вести поиск (['Field1','Field3','Field7'])
foFromBegin - поиск от начала таблицы (true - от начала или False от текущей записи)
foCaseSansitive - поиск с зависимостью от регистра символов (true - зависит от регистра или False не зависит от регистра)
}
Function FieldInFields(_Field:String;_Fields:array of String):Boolean;//
Var
x:byte;
begin//содержиться ли текущее поле в масива полей, предназначенных для поиска
Result:=False;
For x:=Low(_Fields) to High(_Fields) do
if _Field = _Fields[x] then begin
result:=true;
exit;
end;//if
end;//func
Var
i,q,f,w:integer;
begin
ds.DisableControls;//для ускорения отключаем таблицу
w:=ds.RecNo;
try
//если поиск сначала таблицы
if foFromBegin then q:=0 else q:=ds.RecNo;
//идем по всем записям
For i:=q to ds.RecordCount-1 do begin
//пробег по всем полям
For f:=0 to ds.FieldCount-1 do begin
//если текущее поле содержится в массиве полей, предназначенных для поиска
if FieldInFields(ds.Fields[f].FieldName,sFields) then begin
//проверка на регистр
if (foCaseSansitive = True) AND (POS(What,ds.Fields[f].AsString)<>0) then exit;
if (foCaseSansitive = False) AND (POS(AnsiUpperCase(What),AnsiUpperCase(ds.Fields[f].AsString))<>0) then exit;
end;//if FieldInFields(ds.Fields[f].FieldName,sField) then begin
end;//For f:=0 to ds.FieldCount-1 do begin
ds.Next;
end;//For i:=q to ds.RecordCount-1 do begin
ds.RecNo:=w;
if ShowMes then ShowMessage(mes);
finally
ds.EnableControls;//даже если произойдет исключение, то таблицу надо включить
end;//try-finally
end;//proc
Пример использования
FindRec(edFindText.Text,'',dm.tSpis,['Dirname','Type','PathName','Prim'],False,cbRegister.Checked,False);
|
Главная
Каталог файлов
