массивы шариков

[nexzis]

сказали сделать прогу массива шариков...прогу написал но столкнулся с проблемой
у меня в одном массиве 3 шарика в другом 2 и выдаёт ошибку при запуске:

"[Warning] Unit1.pas(78): FOR-Loop variable 'i' may be undefined after loop"
сломал всю голову что надо исправить но не получается может поможете чем нить...

вот программа

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
shape1: TShape;
shape2: TShape;
Timer1: TTimer;
Button1: TButton;
Button2: TButton;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1; cw,ch: integer ;
rast,dist:real; p1,p2: Tpanel;
r1,r2:real;
x:array[1..3] of integer;
k:array[1..3] of integer;
S1:array[1..3] of Tshape;
S2:array [1..2] of Tshape;
const dx:array[1..3] of integer=(10,4,7);
implementation

function udar(i:integer) : boolean;
var x1,x2 :real;
begin
result :=false;
x1 := s1[i].left + r1;
x2 := s2[i].left + r2;
rast := s1[i].Width div 2 + s2[i].Width div 2; //расстояние между центрами
dist := abs(x1-x2);



if rast>=dist then result := true ;

end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
S1[1]:=shape1 ; S1[2]:= shape4 ; S1[3]:= shape3;
S2[1]:=shape2; S2[2]:=shape5;
for i:=1 to 3 do

x[i]:= S1[i].left;
k[1]:=1;
k[2]:=1;
r1:=0.5*s1[1].width;
r2:=0.5*s2[1].width;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
for i:=1 to 3 do

s1[i].left:=s1[i].left+ k[i];
s2[i].Left:=s2[i].left - k[i];

if s1[i].left >= width - s1[i].width then k[i]:=-k[i];
if s2[i].left >= width - s2[i].width then k[i]:=-k[i];
if s1[i].left <= 0 then k[i]:=-k[i];
if s2[i].left <= 0 then k[i]:=-k[i];

if udar(i) then
begin
k[i]:=-k[i];

end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:= not timer1.Enabled;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
s2[1].Visible:= not s2[1].Visible;
end;

end.

[nexzis]

немного изменил код но ошибка просто переместилась вниз

[evg_m]

"[Warning] Unit1.pas(78): FOR-Loop variable 'i' may be undefined after loop"

Переменная(variable) I возможно (may be) неопределена(имеет неизвестное значание)(undefined) после цикла (after loop).
в операторах после окончания цикла используется переменная i для которой занчание не задано. Не хватает begin end для указания начала и конца цикла.

[Z1000000]

Ты область действия цикла for укажи. У тебя он распространяется только на строку

s1[i].left:=s1[i].left+ k[i];

Вот так попробуй.

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
for i:=1 to 3 do
begin
s1[i].left:=s1[i].left+ k[i];
s2[i].Left:=s2[i].left - k[i];

if s1[i].left >= width - s1[i].width then k[i]:=-k[i];
if s2[i].left >= width - s2[i].width then k[i]:=-k[i];
if s1[i].left <= 0 then k[i]:=-k[i];
if s2[i].left <= 0 then k[i]:=-k[i];

if udar(i) then
begin
k[i]:=-k[i];

end;
end;
end;

Обрати внимание, что при обращении в цикле к S2[3], которое у тебя не определено вылетает ошибка обращения к памяти.

[nexzis]

большое спасибо ..помогло