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

[northener]

var Qry:TDataSet

А зачем тут var?

[Dvoishnik]

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

А зачем тут var?

подразумевал что когда что то меняешь
в переменной нужно передавать ее через var
я так понял тут передается ссылка на объект
и Var не нужен?
спасибо все гениальное просто.
а не могли бы вы ответить по поводу работы свойства Filter?

[Аватар]

Filter, Filtered, OnFilterRecord только для набора данных и ни какого SQL

[come-on]

В эмбаркадере там совсем с ума сошли? (или кто там у руля теперь)
ну зачем же справку уничтожили, что теперь людям делать...

да и переменная никому не мешает, правда не понятно почему ее ввели

[Dvoishnik]

Сообщение от Аватар

Filter, Filtered, OnFilterRecord только для набора данных и ни какого SQL

Спасибо, тогда труд не напрасный)

Сообщение от come-on

В эмбаркадере там совсем с ума сошли? (или кто там у руля теперь)
ну зачем же справку уничтожили, что теперь людям делать...

Сволочи!

Сообщение от come-on

да и переменная никому не мешает, правда не понятно почему ее ввели

не понял ?

[Dvoishnik]

Вот такое такая процедура у меня получается.

Procedure FilterRecords(Qry:TDataSet; const ArrayNameFild: array of String; const ArrayValueFild: array of Variant );
var I : byte;
    PVarType,
    VarFildInt:Integer;
    VarFildFloat:Double;
    VarFildStr:String;
    VarFildDateTime:TDateTime;
Begin
 With Qry do
 Begin
  Filtered:= false;
  Filter:='';
  DecimalSeparator:='.'; //Первый вопрос решон
  for I := Low(ArrayValueFild) to High(ArrayValueFild) do
  begin
  PVarType:=VarType(ArrayValueFild[i]);
  case PVarType of
    $0002,$0003,$0011:
      Begin
       VarFildInt:=VarAsType(ArrayValueFild[i],PVarType);
       if Filter = '' then Filter:=ArrayNameFild[i]+'='+IntToStr(VarFildInt)
          else Filter:=Filter+' AND '+ArrayNameFild[i]+'='+IntToStr(VarFildInt);
      end;
    $0004,$0005,$0006: 
      Begin
        VarFildFloat:=VarAsType(ArrayValueFild[i],PVarType);
        if Filter = '' then Filter:=ArrayNameFild[i]+'='+FloatToStr(VarFildFloat)
          else Filter:=Filter+' AND '+ArrayNameFild[i]+'='+FloatToStr(VarFildFloat);
      end;
    $0100,$000D:
      Begin
       VarFildStr:=VarAsType(ArrayValueFild[i],PVarType);
       if  VarFildStr<>'' then
         if Filter = '' then Filter:=ArrayNameFild[i]+' LIKE '+#39+VarFildStr+'%' + #39
           else Filter:=Filter+' AND '+ArrayNameFild[i]+' LIKE '+#39 +VarFildStr+'%' + #39;
      end;
    $0007:
      Begin
        VarFildDateTime:=VarAsType(ArrayValueFild[i],PVarType);
        if Filter = '' then Filter:=ArrayNameFild[i]+'='+DAteTimeToStr(VarFildDateTime)
          else Filter:=Filter+' AND '+ArrayNameFild[i]+'='+DAteTimeToStr(VarFildDateTime);;
      end;
   else
    ShowMessage('Ошибка типа!');
  end;
  Form1.Edit1.TExt:=Filter;
  if Filter='' then Filtered:= false
    else Filtered:=True;
  end;
 end;
end;

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

П.С. если есть идеи как еще можно расширить и оптимизировать процедуру, буду рад слышать критику и предложения.

[come-on]

FloatToStrF + TFormatSettings

буду рад слышать критику

выбросить, потому что не нужная

[Аватар]

Забудешь про те константы, а так все прозрачно

PVarType:=VarType(ArrayValueFild[i]) and VarTypeMask;
case PVarType of
  varSmallint,varInteger,varByte:
    begin
    ...
    end;    
  varSingle,varDouble,varCurrency: 
  ...

[Dvoishnik]

Сообщение от come-on

выбросить, потому что не нужная

Почему? Мне кажется если ее доработать (я задумываюсь о визуальной Надстройке)
то получиться что то годное.

Сообщение от Аватар

Забудешь про те константы, а так все прозрачно[

Действительно. спасибо!

[Аватар]

выбросить, потому что не нужная

Тоже так думаю, есть SQL и чего огород городить с кучей фильтров на клиенте. Фильтры должны быть в запросе