Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Новички в программировании > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 17.02.2010, 17:43   #1
zoza1
Пользователь
 
Регистрация: 01.07.2009
Сообщений: 15
Репутация: 10
Подмигивание Делфи(закраска отедельных ячеек в стринг грид)

есть StringGrid заполненый 0 и 1, нужно закрасить ячейки в которых 0 красным цветом, пока додумался до
Код:

var
a:array[1..9,1..9] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 9 do
for j:=1 to 9 do
begin
a[i,j]:=strtoint(stringgrid1.cells[i-1,j-1]);
if a[i,j]:=0 then 
{и вот тут я застрял))
догодался только до }
stringgrid1.color:=clred;
end;
end;

народ подскажите плз

Последний раз редактировалось Stilet; 17.02.2010 в 18:17.
zoza1 вне форума   Ответить с цитированием
Старый 17.02.2010, 17:48   #2
raxp
Профессионал
 
Регистрация: 29.09.2009
Сообщений: 9,734
Репутация: 3006
По умолчанию

>>> тырк и проверяем текст на 0.
__________________
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума   Ответить с цитированием
Старый 17.02.2010, 17:50   #3
Google2010
Форумчанин
 
Регистрация: 16.02.2010
Сообщений: 316
Репутация: 103
По умолчанию

http://programmersforum.ru/showthread.php?t=8416
Google2010 вне форума   Ответить с цитированием
Старый 18.02.2010, 09:17   #4
SERG1980
Профессионал
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,813
Репутация: 717
По умолчанию

Код:

var
a:array[1..9,1..9] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 9 do
for j:=1 to 9 do
begin
a[i,j]:=strtoint(stringgrid1.cells[i-1,j-1]);
if a[i,j]:=0 then
begin 
 StringGrid1.Canvas.Brush.Color:=clred;
 StringGrid1.Canvas.FillRect(StringGrid1.CellRect(i,j));
end;
end;
end;

SERG1980 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Закраска Chyvis Помощь студентам 0 13.01.2010 10:31
Тип Стринг Golovastik Общие вопросы C/C++ 5 02.09.2009 15:36
работа со стринг peq Microsoft Office Excel 9 27.08.2009 14:24
Помогите со стринг гридом student_63 Помощь студентам 6 03.12.2007 18:41
Стринг UnD)eaD)Snake Общие вопросы Delphi 5 08.10.2007 08:29




06:36.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


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

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru