[Assistant]

да ёп, я это сказал для того, что если не хочется данные каждый раз загружать, то нужно их хранить в скрытом StringGrid'е, ЛИБО использовать всего один Грид и загружать данные каждый раз перед фильтрацией. Это разве так сложно для понимания?

[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. только второй раз фильтрации уже не будет, ибо в гриде уже не будет данных, я бы посоветовал использовать второй, невидимый грид, или перед каждой фильтрацией заного загружать данные.

а num_col_for_find что такое
какие данные?

[Assistant]

это в какой колонке искать данные для сравнения и фильтрации (в твоём случае Дату)

[TotKtoNado]

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

это в какой колонке искать данные для сравнения и фильтрации (в твоём случае Дату)

сам вписываю
слушай а что такое num_col_for_find?

[Assistant]

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

сам вписываю
слушай а что такое num_col_for_find?

как же сложно с тобой, я же написал уже: это в какой колонке искать данные для сравнения и фильтрации (в твоём случае Дату - 0 колонка, т.к. она первая в гриде)

[anonymous]

//facepalm

[Assistant]

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

//facepalm

и не говори...

[TotKtoNado]

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

и не говори...

теперь ругаеться [Îøèáêà] UnitDohod.pas(94): Undeclared identifier: 'filter'

[TotKtoNado]

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

//facepalm

что за //facepalm

[Assistant]

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

что за //facepalm

http://lurkmore.ru/Facepalm