[Antidelphik]

здравствуйте форумчане, помогите пожалуйста исправить ошибку

Код:

[Error] Unit1.pas(43): For loop control variable must be simple local variable

не понимаю просто что это значит, вроде код нормальный

Код:

procedure TForm1.Button1Click(Sender: TObject);
 procedure Flag(x,y:integer);
  begin
   with image1.Canvas do
    begin
     pen.Color:=clBlack;
     brush.Color:=clWhite;
     Rectangle(x,y,x+image1.Width div 2,y-image1.Height div 2);
    end;
  end;
var i,j:integer;
begin
 for i:=0 to image1.Width div 2 do
  for j:=image1.Height div 2 downto 0 do
   begin
    Flag(i,j);
    for i=image1.Height div 6 to image1.Height div 3 do
      brush.Color:=clBlue;
    for i:=image1.Height div 3 to image1.Height div 2 do
      brush.Color:=clRed;
   end;

end;

end.

ошибку пишет в строке

Код:

 for i=image1.Height div 6 to image1.Height div 3 do

[Raskolnikov]

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

[PhoeniX]

Код:

var i,j,k:integer;
begin
  for i:=0 to image1.Width div 2 do
   for j:=image1.Height div 2 downto 0 do
    begin
     Flag(i,j);
     for k:=image1.Height div 6 to image1.Height div 3 do
       brush.Color:=clBlue;
     for k:=image1.Height div 3 to image1.Height div 2 do
       brush.Color:=clRed;
    end;

[hatsub]

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

ошибку пишет в строке

Код:

 for i=image1.Height div 6 to image1.Height div 3 do

По-моему оператор присваивания написан без ":"

for i:=image1.Height div 6 to

[Antidelphik]

Спасибо, теперь у меня другая проблема, всё нормально, запускается, но когда нижимаю кнопку для пуска анимации выходит окнос ошибкой

Код:

Project Project1 raised exception class EInvalidOperation with message 'can only modifi an image if it contains a bit map'.

Process stopped.  Use Step or Run to continue.

И эта зараза у меня вылетает не только на этой программе, но и на остальных которые я пишу на делфи, как мне её исправить? я из-за неё работать не могу

[Aristarh Dark]

Судя по всему ты загружаешь в Имидж картинку из файла, причем она меньше реальных размеров Имиджа и пытаешься рисовать за пределами загруженной картинки.

[Antidelphik]

Aristarh Dark да загружаю, но у меня картинка больше image и я подстраиваю Stretch-true, это разве не должно помочь?

[Aristarh Dark]

Нет, не должно.
Тут все дело в размерах. У тебя размеры имиджа не соответствуют размерам картинки. Сделай их одинаковыми и скорее всего заработает.