Цикл подстановки в Edit из StringGrid

[artemavd]

Доброе утро! Пытаюсь сделать цикл подстановки значений из StringGrid-а. В нем 1 столбец и, например, 5 строк. В них значения. Нужно через заданный интервал подставлять эти пять значений в Edit1 для дальнейших действий. Эти значения используются для рисования. Вот я пытался сделать так:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
begin
 i:=0;
 for i:=0 to 4 do
 begin
  markSize.X:=531;
  markSize.Y:=295;

  generateBackground();
  generateMark(10,10, strtoint64(Form1.StringGrid1.Cells[0,i]));
  deleteBackground();
 end;
end;

Но не канает. Подставляется только последнее значение . Есть идеи?)

[Пепел Феникса]

i глобальной сделать.(с инициализацией в ноль)
и код выйдет таким.

begin
 markSize.X:=531;
 markSize.Y:=295;
 generateBackground();
 generateMark(10,10, strtoint64(Form1.StringGrid1.Cells[0,i]));
 deleteBackground();
 inc(i);
 if i>4 then i:=0;
end;

[artemavd]

Посталвил сей код в таймер. Но при запуске таймера выдается только значение, которое в первой самой ячейке). А надо то все)

[SERG1980]

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
begin
 i:=0;
 for i:=0 to 4 do
 begin
  markSize.X:=531;
  markSize.Y:=295;
  generateBackground();
  Application.ProcessMessages;
  sleep(100);//необязательно
  generateMark(10,10, strtoint64(Form1.StringGrid1.Cells[0,i]));
  deleteBackground();
 end;
end;

[artemavd]

Неа, не работает. Из таблицы используется теперь только последнее значение. Тогда первое, а сейчас последнее).

[Stilet]

generateMark

Оч. смешно. Ты предлагаешь сидеть и телепатировать что это за generateMark такая?

[artemavd]

Это самописная функция

procedure generateMark(x,y:integer; value:int64);
begin
  generateBinaryTable(value);
  generateLabel(value);
end;

[Stilet]

Не знаю как остальным а мне ниче не понятно...
Задачу рассказывай полностью, иначе тебя помидорами закидают.

[artemavd]

Вот листинг:

procedure generateBackground();
begin
  {background.Create;
  background.SetSize(markSize.X, markSize.Y);}
  Form1.Image1.Canvas.Pen.Color:=clWhite;
  Form1.Image1.Canvas.Brush.Color:=clWhite;
  Form1.Image1.Canvas.Pen.Width:=1;
  Form1.Image1.Canvas.Rectangle(0, 0, markSize.X, markSize.Y);

  Form1.Image1.Canvas.Pen.Color:=clBlack;

  Form1.Image1.Canvas.Pen.Width:=1;
  Form1.Image1.Canvas.MoveTo(0, 0);
  Form1.Image1.Canvas.LineTo(markSize.X, 0);
  Form1.Image1.Canvas.LineTo(markSize.X, markSize.Y);
  Form1.Image1.Canvas.LineTo(0, markSize.Y);
  Form1.Image1.Canvas.LineTo(0, 0);

  Form1.Image1.Canvas.Pen.Width:=6;
  Form1.Image1.Canvas.MoveTo(50, 27);
  Form1.Image1.Canvas.LineTo(480, 27);
  Form1.Image1.Canvas.LineTo(480, 268);
  Form1.Image1.Canvas.LineTo(50, 268);
  Form1.Image1.Canvas.LineTo(50, 27);

  Form1.Image1.Canvas.MoveTo(97, 74);
  Form1.Image1.Canvas.LineTo(432, 74);

  Form1.Image1.Canvas.Brush.Color:=clBlack;
  Form1.Image1.Canvas.Rectangle(50, 27, 50+48, 27+48);
  Form1.Image1.Canvas.Rectangle(480-48, 27, 480, 27+48);
  Form1.Image1.Canvas.Rectangle(50, 268-48, 50+48, 268);

  Form1.Image1.Canvas.Brush.Color:=clWhite;
  Form1.Image1.Canvas.Rectangle(480-48, 268-48, 480, 268);
end;

procedure deleteBackground();
begin

end;
procedure generateBinaryTable(value:int64);
const
  edge=26;
  probel=10;
  startX=170 -50 +5;
  startY=103 -27 +10;
var
i, j, x, y, counter:integer;
map: array[1..8, 1..5] of boolean;//40 - 37 =3 proverocnih
begin
  counter:=0;
  for i := 1 to 8 do
  begin
    for j := 1 to 5 do
    begin
      counter:=counter+1;
      if counter<=37 then
      begin
        if (value shr (counter-1)) mod 2 = 1  then
        begin
          map[i, j]:=true;
          form1.Memo1.Lines.Add(inttostr(counter)+' '+'1');
        end
        else
        begin
          map[i, j]:=false;
          form1.Memo1.Lines.Add(inttostr(counter)+' '+'0');
        end;
      end
      else
      begin
        map[i, j]:=true;
      end;
    end;
  end;
    


  Form1.Image1.Canvas.Brush.Color:=clBlack;
  for i := 1 to 8 do
  begin
    for j := 1 to 5 do
    begin
      if  map[i, j] then
      begin
        x:= startX + ( (i-1) * edge ) + ( (i-1) * probel );
        y:= startY + ( (j-1) * edge ) + ( (j-1) * probel );
        Form1.Image1.Canvas.Rectangle(x, y, x + edge, y + edge);
      end;
    end;
  end;
end;

procedure generateLabel(value:int64);
begin
  Form1.Image1.Canvas.Pen.Color:=clBlack;
  Form1.Image1.Canvas.Brush.Color:=clWhite;
  Form1.Image1.Canvas.Pen.Width:=1;
  Form1.Image1.Canvas.Font.Size:=30;
  Form1.Image1.Canvas.TextOut(170-10, 25, IntToStr(value));

  Form1.Image1.Canvas.Pen.Width:=6;

  Form1.Image1.Canvas.MoveTo(50, 27);
  Form1.Image1.Canvas.LineTo(480, 27);

  Form1.Image1.Canvas.MoveTo(97, 74);
  Form1.Image1.Canvas.LineTo(432, 74);
end;

procedure generateMark(x,y:integer; value:int64);
begin
  generateBinaryTable(value);
  generateLabel(value);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
// Form1.Timer1.Enabled:=True;
   markSize.X:=531;
  markSize.Y:=295;

  generateBackground();
  generateMark(10,10, strtoint64(form1.Edit1.Text));
  deleteBackground();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.StringGrid1.Cells[0,0]:='89500000000';
 Form1.StringGrid1.Cells[0,1]:='89500621533';
 Form1.StringGrid1.Cells[0,2]:='89027652871';
 Form1.StringGrid1.Cells[0,3]:='89500802365';
 Form1.StringGrid1.Cells[0,4]:='89084561573';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  i:=0;
  for i:=0 to 4 do
  begin
   markSize.X:=531;
   markSize.Y:=295;
   generateBackground();
   Application.ProcessMessages;
//   Sleep(100);
   generateMark(10,10, strtoint64(form1.StringGrid1.Cells[0,i]));
   deleteBackground();
//  if i>4 then i:=0;
//  inc(i);
  end;
end;

Рисуется специальная фигура. Да не в этом коде дело-то. Все что мне нужно - это чтобы значения брались из таблицы и для каждой рисовалась своя фигура. Нужен цикл прохода по все записям в StrinGride.

[Stilet]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   markSize.X:=531;
   markSize.Y:=295;
   generateBackground();
   Application.ProcessMessages;
   generateMark(10,10, strtoint64(form1.StringGrid1.Cells[0,tag]));
   if tag=4 then tag:=0 else tag:=tag+1;
   deleteBackground();
end;

Смысл понятен?