фильтр

[cookies]

Доброго времени суток, делфи кодеры)

есть код

procedure TForm3.ADOQuery1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
 var FieldVal:string;
begin
FieldVal:=DataSet['Фамилия'];
 Accept:=copy(AnsiUpperCase(FieldVal),1, length(Sedit1.text))= AnsiUpperCase(Sedit1.Text);
end;

ввожу фамилию, все нормально фильтрует и отображает.. как сделать чтоб в едит можно было ввести фамилию и через пробел имя - и в соответствии все фильтровалось и выводилось ?

[Serge_Bliznykov]

нужно распарсить Edit на две переменные по наличию пробела.
и, если он есть, тогда проверять ещё одно условие - совпадение имени

примерно так:

procedure TForm3.ADOQuery1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);

var FieldValFam, FieldValName :string;
    sFam, sName : string;
    iPos : integer;
begin
 FieldValFam:=DataSet['Фамилия'];
 sFam := AnsiUpperCase(Sedit1.Text);
 iPos :=  Pos(' ', sFam); 
 if iPos>0 then begin
    sName := Trim(Copy(sFam, iPos+1, Length(sFam)-iPos));
    sFam := Copy(sFam, 1, iPos-1);
    FieldValName := DataSet[Имя'];
   Accept:= ( copy(AnsiUpperCase(FieldValFam),1, length(sFam))= sFam )
             and ( copy(AnsiUpperCase(FieldValName),1, length(sName))= sName );
 end
 else 
   Accept:=copy(AnsiUpperCase(FieldValFam),1, length(sFam))= sFam;
end;

[cookies]

Сообщение от Serge_Bliznykov

нужно распарсить Edit на две переменные по наличию пробела.
и, если он есть, тогда проверять ещё одно условие - совпадение имени

примерно так:

procedure TForm3.ADOQuery1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);

var FieldValFam, FieldValName :string;
    sFam, sName : string;
    iPos : integer;
begin
 FieldValFam:=DataSet['Фамилия'];
 sFam := AnsiUpperCase(Sedit1.Text);
 iPos :=  Pos(' ', sFam); 
 if iPos>0 then begin
    sName := Trim(Copy(sFam, iPos+1, Length(sFam)-iPos));
    sFam := Copy(sFam, 1, iPos-1);
    FieldValName := DataSet[Имя'];
   Accept:= ( copy(AnsiUpperCase(FieldValFam),1, length(sFam))= sFam )
             and ( copy(AnsiUpperCase(FieldValName),1, length(sName))= sName );
 end
 else 
   Accept:=copy(AnsiUpperCase(FieldValFam),1, length(sFam))= sFam;
end;

Serge_Bliznykov, Спасибо Вам большое!

[Serge_Bliznykov]

Да не за что!

Неужели предложенный мною код работает?
(ну, после исправления моих опечаток, конечно!)

[cookies]

Сообщение от Serge_Bliznykov

Да не за что!

Неужели предложенный мною код работает?
(ну, после исправления моих опечаток, конечно!)

Работает отлично)) сейчас разбирусь в нем) Опечаток не было, единственное лишь кавычку забыли и все.

Спасибо еще раз!