[TotKtoNado]

а как фильтр дат так чтоб отображался только определенный месяц день или год?

Код:

begin
if combobox1.itemIndex=0 then
  begin
  убрать строки
  end;
end;

[Assistant]

убрать строки откуда? из базы, Memo, Грида? конкретнее вопрос задавайте.

[TotKtoNado]

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

убрать строки откуда?

в stringgride

[Assistant]

грид хоть покажите, а то не понятно какой там формат дат и вообще, какой вид грида.

[TotKtoNado]

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

грид хоть покажите, а то не понятно какой там формат дат и вообще, какой вид грида.

http://s53.radikal.ru/i142/1105/b1/b3656a6205e2.png

[Assistant]

Код:

procedure FilteredStringGrid(Grid: TStringGrid; filter: string; num_col_for_find: integer);
var
  i,n: integer;
  cnt: integer;
begin
  cnt := 0;

  for i := 0 to Grid.RowCount-1 do
  begin
    if (Grid.Cells[num_col_for_find,i] = filter) then
    begin
      for n := 0 to Grid.ColCount-1 do
        Grid.Cells[n,cnt] := Grid.Cells[n,i];
        
      Inc(cnt);
    end;
  end;

  Grid.RowCount := cnt;
end;

использовать так (для вашего случая):

Код:

FilteredStringGrid(StringGrid1,ComboBox1.Text,0);

P.S. только второй раз фильтрации уже не будет, ибо в гриде уже не будет данных, я бы посоветовал использовать второй, невидимый грид, или перед каждой фильтрацией заного загружать данные.

[anonymous]

в рантайме добавлять в конец sql того, из чего выборка попадает в грид

Код:

  and (CAST(T_Date AS DATE) >= :Date1)
  and (CAST(T_DATE AS DATE) <= :Date2)

переменная номер раз-Date1 начало выбранного месяца в формате дд:мм:гггг
переменная номер два-Date2 конец выбранного месяца в нем же)