1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15

procedure TConsFrame.FillConsGrid(ConsHistory: TConsumptionHistory;
  Date: TDateTime);
var
  I: Integer;
begin
  for I := 0 to ConsHistory.Count - 1 do
  begin
    if not (TConsumptionRecord(ConsHistory[I]).State = osDeleted) then
      if DateOf(TConsumptionRecord(ConsHistory[I]).Date) = DateOf(Date) then
        if ((not FIsSelTime) or
           (FIsSelTime and (FSelTime = FormatDateTime('HH:mm', TConsumptionRecord(ConsHistory[I]).Date)))) then
          if ((not FIsSelName) or  (FIsSelName and (pos(FSelName, TProduct.TGlobalCollection.Products.RecursiveGetNodeByID(TConsumptionRecord(ConsHistory[I]).IDProduct)).Name) > 0))) then
            ConsGrid.AddChild(nil, ConsHistory[I]);
  end;
end;