1 Topic by Alex (edited by Alex 2015-07-10 08:55:15)

  • Alex
  • Member
  • Offline
  • Registered: 2015-05-05
  • Posts: 21

Topic: Цветной Грид

Дмитрий подскажите...
В колонке Грида есть цветные символьные ячейки(текст), получаемые по условию
...
    if Form1.TableGrid1.Cells[2,i] = '' then Form1.TableGrid1.Cell[1,i].Color := clGreen
    else Form1.TableGrid1.Cell[1,i].Color := clRed;
...
ячейка пустая(два апострофа рядом) - зеленый, в противном случае - красная.
Как указать значение ячейки - не пустая?
И еще вопросик. Таких ячеек под 100.
Есть-ли возможность посчитать сколько красных и сколько зеленых (пустых, непустых)?
Спасибо.

  • Registered: 2015-04-04
  • Posts: 262

Re: Цветной Грид

Кстати на счет первого вопроса, для указания что ячейка не пустая надо писать так

if Form1.TableGrid1.Cells[2,i] = ''  - пустая строка
if Form1.TableGrid1.Cells[2,i] <> '' - не пустая

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Цветной Грид

Alex wrote:

И еще вопросик. Таких ячеек под 100.
Есть-ли возможность посчитать сколько красных и сколько зеленых (пустых, непустых)?
Спасибо.


Можно, необходимо завести две переменные, в которых можно это подсчитать, например

var
   iRed, iGreen: integer;
begin

....

iRed := 0;
iGreen := 0;

if Form1.TableGrid1.Cells[2,i] = '' then 
begin
   Form1.TableGrid1.Cell[1,i].Color := clGreen;
   Inc(iGreen); // каждый раз прибавляем 1 в переменную
end else
begin
   Form1.TableGrid1.Cell[1,i].Color := clRed;
   Inc(iRed); // каждый раз прибавляем 1 в переменную
end;

// выводим значение этих переменных например в компонент Label
Form1.Label1.Caption := IntToStr(iGreen);
Form1.Label2.Caption := IntToStr(iRed);
Dmitry.
  • Alex
  • Member
  • Offline
  • Registered: 2015-05-05
  • Posts: 21

Re: Цветной Грид

Спасибо Дмитрий, все работает.
Когда соберу проект у Вас будет возможность посмотреть на него ?
Я предполагаю, что скрипт упростить можно...
Еще раз Спасибо.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Цветной Грид

Alex
Посмотреть с какой целью? )

Dmitry.