• Registered: 2014-11-13
  • Posts: 325

Topic: Грид (пустой или нет)

Доброго всем вечера!

В главной форме есть 3 грида. В одной из них, выводится список именинников, если такие на сегодня есть.
Требуется проверить скриптом какое кол-во записей в гриде "именинники" вывелось сегодня, что бы все эти записи именинников в гриде раскрасить в разные цвета для праздничного настроения именинников.

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

2 Reply by alex842 (edited by alex842 2014-12-19 19:31:52)

  • Registered: 2014-05-21
  • Posts: 108

Re: Грид (пустой или нет)

Чтобы получить кол-во записей в гриде, воспользуйтесь свойством RowCount:

var
 i:integer;
begin
  ShowMessage(IntToStr(Form1.TableGrid1.RowCount));

Нашел пример, который когда-то Дмитрий делал по расраске грида: 

procedure Form1_bSearch_OnAfterClick (Sender: string);
var
   i,c: integer;
   sDate: string;
begin
     c := Form1.GridSearch.RowCount-1; // узнаем количество строк в гриде                                                                         
     for i := 0 to c do // цикл перебора всех строк в гриде                                                                                                
     begin
          sDate := Form1.GridSearch.Cells[0,i]; // получаем из первого столбца текстовое значение даты                                                                                                                                 
          if ValidDate(sDate) then // на всякий случай проверяем, верный ли формат даты                                                                                                                            
             if StrToDate(sDate) <= (Date-3) then Form1.GridSearch.Cell[0,i].Color := clYellow; // сравниваем дату в ячейке с текущей датой +3 дня, если дата меньше или равно, то окрашиваем в желтный                                                                                                                                                                                                                                            
     end;
end;
  • Registered: 2014-11-13
  • Posts: 325

Re: Грид (пустой или нет)

Cпасибо!