Timage - проблема...

[Canvas]

вот я пишу программу

procedure Udalenie(t2: TImage);
begin
With Form1 do

if t2.Tag=150 then
  begin
  t2.Canvas.Pen.Width:=0;
  t2.Canvas.Pen.Color:=clwhite;
  t2.Canvas.Rectangle(0,0,60,60);
  t2.Tag:=0;

  end;

end;

программа проверяется- ошибок нету. но когда запускается- выдаёт окно ужос!.JPG
"if t2.Tag=150 then"- на этом места ставит зелёную стрелку, и пишет снизу вот это:
"[Warning] Unit1.pas(497): For loop control variable must be simple local variable"

помогите кто нибудь...

[rpy3uH]

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

"if t2.Tag=150 then"- на этом места ставит зелёную стрелку, и пишет снизу вот это:
"[Warning] Unit1.pas(497): For loop control variable must be simple local variable"

это всего лишь предупреждение, ошибка не из-за этого

проблема скорее всего в том что в процедуру Udalenie ты передаёшь неверные данные
и так и не понятно зачем там строка

With Form1 do

[mihali4]

Судя по заголовку
procedure Udalenie(t2: TImage);
Form1 ничего не знает о существовании процедуры Udalenie, также, как и Udalenie ничего не знает о существовании Form1.
Рекомендую их познакомить:
procedure Form1.Udalenie(t2: TImage);

[Altera]

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

Судя по заголовку
procedure Udalenie(t2: TImage);
Form1 ничего не знает о существовании процедуры Udalenie, также, как и Udalenie ничего не знает о существовании Form1.
Рекомендую их познакомить:
procedure Form1.Udalenie(t2: TImage);

Точно сказал. Да, и в private опиши её, а то компилятор опять ругаться будит.

Вот так:

private 
procedure Form1.Udalenie(t2: TImage);

[mihali4]

А почему именно в private ?
Можно и до нее, обычным порядком:

type
  TForm1 = class(TForm)
...
    procedure Udalenie(t2: TImage);
  private
...
    { Private declarations }
...
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Form1.Udalenie(t2: TImage);

[Canvas]

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

Точно сказал. Да, и в private опиши её, а то компилятор опять ругаться будит.

Вот так:

private 
procedure Form1.Udalenie(t2: TImage);

сделал- не помогло. точнее появилась ошибка в private:
"[Error] Unit1.pas(142): Undeclared identifier: 'Form1'"

а вообще вот форма вызова самой процедуры удалениякак у меня в программе)

 for m1:=0 to 100 do
      begin
      Udalenie(TImage(form1.findcomponent('Image'+inttostr(m1))));
      end;

а зачем тут Whith form1 do - я сам не знаю! :D просто в тетрадке у себя нашол такую запись

[Баламут]

private 
procedure Udalenie(t2: TImage);

Т.е. убери Form1. Здесь это явно не к месту

[rpy3uH]

по-моему, всё это не поможет. Нужно убеждаться в валидности параметра t2 в процедуре Udalenie

[opel.omega]

а не лучше ТБлоб-ам все это сделать

[Canvas]

Сообщение от opel.omega

а не лучше ТБлоб-ам все это сделать

поподробнее пожалуйста. я просто не слышал не разу.