[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 конец выбранного месяца в нем же)

[Assistant]

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

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

угу, ещё есть прекрасная штука как BETWEEN на SQL, но кто сказал что он использует SQL? )))

P.S.: попросили грид отфильтровать, я отфильтровал, никто не говорил про SQL. Надо сразу вопрос нормально ставить. Мне как-то влом вытягивать всё из человека.

[TotKtoNado]

Сообщение от 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]

Это да.
Никогда не пробовал прямо в гриде менять.
Интересно сохранится ли после таких приколов возможность правильно выбирать запи сь по клику на грид.

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

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

а почему бы просто перед каждой фильтрацией не делать гриду вкл\выкл? Датасет же такой фильтр не трогает.

[Assistant]

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

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

а почему нет? ты не путай TDBGrid и TStringGrid. в данном случае у нас TStringGrid.

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

[TotKtoNado]

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

а почему нет? ты не путай TDBGrid и TStringGrid. в данном случае у нас TStringGrid.

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

но ты же сам сказал

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

[Assistant]

ну да, просто перед следующей фильтрацией нужно будет загрузить заново данные в StringGrid и отфильтровать, в чем проблема-то? а откуда данные вообще берешь?

[anonymous]

Действительно стринггрид^^Это все проясняет)

Тогда да, перед каждой фильтрацией полностью его чистить и заполнять с начала.

[TotKtoNado]

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

ну да, просто перед следующей фильтрацией нужно будет загрузить заново данные в StringGrid и отфильтровать, в чем проблема-то? а откуда данные вообще берешь?

но тогда зачем вобще тогда делать эти невидимые стринггриды?