procedure c N параметрами

[Dvoishnik]

хочу написать процедуру для фильтрации по N полям
вопрос собственно в том можно ли в TStringList как нибудь поля передать параметрами
или это массивом только сделать можно?

Procedure FilterRecords(var Qry:TADOQuery; const StrArray: array of string );
...........
Procedure FilterRecords(var Qry:TADOQuery; StrLis:TStringList );
...................
.................
FilterRecords(ADOQuery1, Edit1.TExt,Edit2.TExt,Edit3.TExt );

[Serge_Bliznykov]

не очень понял вопрос...

Procedure FilterRecords(var Qry:TADOQuery; const StrArray: array of string );

так можно.

Procedure FilterRecords(var Qry:TADOQuery; StrLis:TStringList );

и так можно.


последний случай ( ( Edit1.TExt,Edit2.TExt,Edit3.TExt ) ) - так не универсально и не масштабируемо.

В чём вопрос? Как содержимое ваших Edit'ов в TStringList засунуть?

[Dvoishnik]

последний случай это то как я представляю вызов процедуры.
при таком объявлении

Procedure FilterRecords(var Qry:TADOQuery; const StrArray: array of string );

как будет выглядеть при таком если мне нужно передавать N строк
или как правильно объявить лист

Procedure FilterRecords(var Qry:TADOQuery; StrLis:TStringList );

ИМХО с StringList работать удобней чем с массивом.

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

В чём вопрос? Как содержимое ваших Edit'ов в TStringList засунуть?

именно в этом
только не в таком варианте

StringList.ADD(Edit1);
StringList.ADD(Edit2);
.........................
FilterRecords(ADOQuery1, StringList );

[evg_m]

как будет выглядеть при таком если мне нужно передавать N строк

объявление

procedure FilterRecords(ADO: TADOQuery; const filters: array of string);

и использование

FilterRecords(ADOQuery1, [ Edit1.TExt, Edit2.TExt, Edit3.TExt ] );

FilterRecords(ADOQuery1, [ Edit1.TExt] );

FilterRecords(ADOQuery1, [ Edit1.TExt, Edit2.TExt, Edit3.TExt, Edit5.Text ] );

[Аватар]

StringList.ADD(Edit1);

Это что? Засунуть в стринглист данные из кучи эдитов можно и в цикле, перебирая эдиты, напрbмер, в Controls. На всякий случай - массив можно и так параметром передавать

[Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text]

[Dvoishnik]

я видно совсем не ясно выражаюсь.

1) как передать в массив я понял, спасибо.
2) хочу понять как объявить и передать передать в стринглист.

сделал так с массивом

Procedure FilterRecords(var Qry:TADOQuery; const StrArray1: array of string; const StrArray2: array of string );
var I : byte;
Begin
 With Qry do
 Begin
  Filtered:= false;
  Filter:='';
  for I := Low(StrArray2) to High(StrArray2) do
  begin
  if  StrArray2[i]<>'' then
    if Filter = '' then
      Filter:=StrArray1[i]+' LIKE '+#39+StrArray2[i]+'%' + #39
      else
        Filter:=Filter+' AND '+StrArray1[i]+' LIKE '+#39 + StrArray2[i]+'%' + #39;
  end;
  if Filter='' then Filtered:= false
    else Filtered:=True;
 end;
end;


.............
procedure TForm1.Edit1Change(Sender: TObject);
Begin
 FilterRecords(DataModule2.QryProdTov, ['articul.art','razmer'], [Edit1.Text,Edit3.Text] );
end;
procedure TForm3.Edit1Change(Sender: TObject);
Begin
 FilterRecords(DataModule2.QryProdTov, ['articul.art','razmer'], [Edit1.Text,Edit3.Text] );
end;

хотелось тоже самое с TStringList

[Serge_Bliznykov]

массив будет в данном случае удобнее.

насчёт TStringList.
а чем Вас не устроил вариант с StringList.Add(); ?

ну, попробуйте так:

StringList.Text := Edit1.Text+#13#10+Edit2.Text+#13#10+Edit3.Text ....+#13#10 + EditXX.Text;

[evg_m]

r:=TStringList.Create;
try
r.Delimiter:=';';
r.CommaText:=QuotedStr(Edit3.Text)+';' +QuotedStr(Edit7.Text);

if Edit2.Text<>'' then r.Add(Edit2.Text);

r.Add(Edit1.Text);
r.Add(Edit5.Text);

FilterRecords(ADOQuery1, r);
finally
r.Free;
end;

procedure FilterRecords(ADO: TADOQuery; const comfilter: string; delimiter: char =';' );
var
  r: TStringList;
begin
  r:=TstringList.Create;
  try
  r.Delimiter:=delimiter;
  r.DelimiterText:=comfilter;

  ....
  finally
  r.Free;
  end;  
end;

var
  s: string;
const
  dlm: char ='|';

s:=QuotedStr(Edit1.Text) +dlm 
 + QuotedStr(Edit3.Text) +dlm 
 + QuotedStr(Edit7.Text);
FilterRecords(ADOQuery1, s, dlm );

[Dvoishnik]

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

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

массив будет в данном случае удобнее.

понял не буду как говориться "мучить попу")
Всем спасибо за помощь.

[Dvoishnik]

Захотелось расширить выше указанную процедуру и понял что я маловато знаю в самом начале пути

//объявление процедуры
Procedure FilterRecords(var Qry:TDataSet; const ArrayNameFild: array of string; const ArrayValueFild: array of string);
................
//вызов 
dd:TDAtaSet;
begin
dd:=ADOTable1;
FilterRecords(dd, ['fio'],['Пупкин Иван петрович']);

вопрос собственно такой можно ли избежать промежуточной переменной??

и сразу в нагрузку вообще как работает свойство Filter?
а именно:
оно создает запрос и делает выборку из базы?
или работает с текущем набором данных?