Код:
p[i].X:=Trunc( Cos( An) * TempX - Sin( An) * TempY );
p[i].Y:=Trunc( Sin( An) * TempX + Cos( An) * TempY );
идет обращение к еще невыделенной памяти, поэтому и
Цитата:
|
а затем выбивает delphi и пишет ''Variable 'p' might not have been initialized.
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,a,TempX,TempY:integer;
an:real;
p: array of TPoint;
begin
a:=spinedit1.Value;
An:=(a+180)*(3.14/180);
n:=listbox1.Count-1;
SetLength(p,n);// выделяем память
for i:=0 to n do
....
Finalize(p);// освобождаем память