Вращение многоугольника вокруг заданной точки

[Mazahacka1]

Координаты точек обращены на угол фи подсчитывает. Проблема соединить их, выдает ошибку. Помогите, буду очень благодарен.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    SpinEdit1: TSpinEdit;
    Button1: TButton;
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x1,y1,sx,sy,n:integer;
  xa: array [1..100 ]of integer;
 ya: array [1..100 ]of integer;





implementation

{$R *.dfm}

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);


begin




if (button=mbright) then
    begin
     canvas.MoveTo(x,y);
     x1:=x;
     y1:=y;
listbox1.Items.Add(IntToStr(x));
listbox2.Items.Add(IntToStr(y));

  end;
if (ssShift in Shift) then
   begin
      canvas.LineTo(x,y);
      listbox1.Items.Add(IntToStr(x));
      listbox2.Items.Add(IntToStr(y));
    end;

 sx:= StrToInt(listbox1.Items[0]);
 sy:= StrToInt(listbox2.Items[0]);

    if (((x>(sx-10))and (x<(sx+10)))and((y<(sy+10))and (y>(sy-10)))) then
    begin

 canvas.LineTo(sx,sy);

end;
end;






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;
for i:=1 to n  do
begin
xa[i]:= StrToInt(listbox1.Items[i-1]);
ya[i]:= StrToInt(listbox2.Items[i-1]);

TempX:=xa[1]-xa[i];
TempY :=ya[1]-ya[i];
p[i].X:=Trunc( Cos( An) * TempX - Sin( An) * TempY );
p[i].Y:=Trunc( Sin( An) * TempX + Cos( An) * TempY );

 form1.Canvas.Polygon(p);
end;



end;

end.

что никто не знает?

[denisbrain]

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

что никто не знает?

просто погода хорошая - все отдыхают!
http://netsoftware.ucoz.ru/load/pros...delphi/1-1-0-7

мой не большой примерчик
будут вопросы задавай (но только в аське и завтра сутра)

[Mazahacka1]

посмотрите пожалуйста

[Valio]

А можно описать проблему пошире для тех, у кого на работе нету Делфи?

[Mazahacka1]

нажимая F9 компилятор ничего против запускается программа вводим данные, нажимая на кнопку выбивает системная ошибка и компилятор пишет и пишет ''Variable 'p' might not have been initialized.''

p[i].X:=Trunc( Cos( An) * TempX - Sin( An) * TempY );
p[i].Y:=Trunc( Sin( An) * TempX + Cos( An) * TempY );

form1.Canvas.Polygon(p); ошибка вот здесь гдето но я не знаю где

[Valio]

Без компилятора трудно понять в чём проблема.

Но разве это не динамический массив?

p: array of TPoint;

С ним нужно работать по особеному. Но для простого исправления достаточно написать так:

p: array [1..100] of TPoint;

Ошибка должна пропасть.

Variable 'p' might not have been initialized.

Это предупреждение, а не ошибка.

[Mazahacka1]

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

[denisbrain]

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

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

еще один пример
http://netsoftware.ucoz.ru/59_povorot_vokrug_tochki.zip

[Valio]

У тебя в коде вообще лажа какаято. Что вообще за задание?
Судя по твоему коду юзер тыкает по форме и тем самым задаёт полигон. Но цент вращения тогда каким образов задаётся?

[Mazahacka1]

да юзер тычет точки которые заносятся в listbox. координаты точки поворота 0 строчка в listbox 1 i listbox2. угол поворота заносится через SpinEdit1