загрузка из ListBox в StringGrid

[waka2ebawer]

Добрый вечер. есть компонент ListBox в нем находятся числа и есть компонент StringGrid, в котором отображается календарь. и есть кнопка, при нажатии на которую происходит цикл

global var n:integer;

var i,x,y:integer;
begin
for i:=0 to 10 do begin
  n:=StrToInt(Listbox1.Items.Strings[i]); end;
   for y:=1 to 7 do
    for x:=0 to 6 do
     begin StringGrid1.Cells[x,y]:=calendar.CellText[x,y]; 
      end;

и есть событие в StringGrid

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if StringGrid1.Cells[ACol,ARow]<>'' then
    begin
     if StrToInt(StringGrid1.Cells[ACol,ARow])=n then
      begin
       StringGrid1.Canvas.Brush.Color:=clGreen;
       StringGrid1.Canvas.FillRect(Rect);
       StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[Acol,Arow]);
      end;

суть такая при нажатии на кнопку цикл сканирует listbox и потом сравнивает со stringgrid'ом и если числа совпадают то они закрашиваются цветом. у меня же проблема в том, что он закрашивает только последнее число из listbox'a проходя весь цикл.

Вопрос:как сделать чтобы он все закрашивал, которые есть в listBox'e.

[phomm]

Если числа в листбоксе в пределах от 0 до 255 то можно через сет. Примерно так:

global var n: set of byte;

var i,x,y:integer;
begin
n := [];
for i:=0 to Listbox1.Items.Count - 1 do 
  include(n, StrToInt(Listbox1.Items.Strings[i]));
...
if StrToInt(StringGrid1.Cells[ACol,ARow]) in n then

Ну а вообще такую задачу стоит решать через дополнительные данные(массивы, или флаги на ячейки), ведь очевидно же, что в один момент времени (отрисовка грида) n может иметь только 1 значение. И цикл тут ни при чем, цикл выполняется в одно время, а отрисовка в другое(ну они конечно неким образом связаны между собой,но надеятся на непостоянную вещь нельзя, ибо там ещё много всего всего, в том числе и и перерисовка предыдущих ячеек, что затирает предыдущее нарисованное)

[waka2ebawer]

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

Если числа в листбоксе в пределах от 0 до 255 то можно через сет. Примерно так:

global var n: set of byte;

var i,x,y:integer;
begin
n := [];
for i:=0 to Listbox1.Items.Count - 1 do 
  include(n, StrToInt(Listbox1.Items.Strings[i]));
...
if StrToInt(StringGrid1.Cells[ACol,ARow]) in n then

Ну а вообще такую задачу стоит решать через дополнительные данные(массивы, или флаги на ячейки), ведь очевидно же, что в один момент времени (отрисовка грида) n может иметь только 1 значение. И цикл тут ни при чем, цикл выполняется в одно время, а отрисовка в другое(ну они конечно неким образом связаны между собой,но надеятся на непостоянную вещь нельзя, ибо там ещё много всего всего, в том числе и и перерисовка предыдущих ячеек, что затирает предыдущее нарисованное)

нашел немного другой способ решения

заменить

StrToInt(StringGrid1.Cells[ACol,ARow])=n

на

Listbox1.Items.IndexOf(StringGrid1.Cells[ACol,ARow])>=0