Классы в Delphi 7

[igor100500]

Здравствуйте. Нужна помощь по поводу кода, нужно сделать так чтобы рисование звездопада происходила через классы, а у меня просто рисование(как мне сказали).
Вот код.

const liczba = 500;
var
  Form1: TForm1;
  koniec:boolean;
  tablica:array[1..liczba] of
  record
  v,kat,r: real;
  kolor:tcolor;
  r_stare,kat_stare:real;
  end;
implementation

procedure nadaj_losowe;
var i:integer;
begin
for i:=1 to liczba do
begin
tablica[i].kat:=random(3600)/10;
tablica[i].r:=random(195)+2;
tablica[i].v:=(tablica[i].r+random(50)+1)/300;
tablica[i].kolor:=rgb(random(155)+50,random(105)+150,random(155)+50);
end;
end;

procedure przelicz;
var i:integer;
begin
for i:=1 to liczba do
begin
tablica[i].kat_stare:=tablica[i].kat;
tablica[i].r_stare:=tablica[i].r;
tablica[i].kat:=tablica[i].kat+tablica[i].v;
if tablica[i].kat>359 then tablica[i].kat:=0;
tablica[i].r:=tablica[i].r+tablica[i].v/5;
if tablica[i].r>190 then
begin
tablica[i].r:= random(20)+2;
tablica[i].v:=(random(245)+3)/300;
tablica[i].kolor:=rgb(random(155)+50,random(155)+100,random(155)+50);
end;
end;
end;

procedure wyswietl;
var i,x,y:integer;
begin
for i:=1 to liczba do
begin
x:=round(tablica[i].r*cos(tablica[i].kat/180*pi));
y:=round(tablica[i].r*sin(tablica[i].kat/180*pi));
form1.Image1.Canvas.Brush.Color:= tablica[i].kolor;
form1.Image1.Canvas.Pixels[220+x,220+y]:= tablica[i].kolor;
end;
end;

procedure zmaz_stare;
var i,x,y,x2,y2:integer;
begin
for i:=1 to liczba do
begin
x:=round(tablica[i].r_stare*cos(tablica[i].kat_stare/180*pi));
y:=round(tablica[i].r_stare*sin(tablica[i].kat_stare/180*pi));
x2:=round(tablica[i].r*cos(tablica[i].kat/180*pi));
y2:=round(tablica[i].r*sin(tablica[i].kat/180*pi));
if (x<>x2)or(y<>y2) then
form1.Image1.Canvas.Pixels[220+x,220+y]:=clblack;
end;
end;
{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
with canvas do
begin
pen.style:= psdot;
pen.Width:= 2;
for I:= 1 to 10 do
begin
pen.Color:=RGB(random(255), random(255), random(255)) ;
lineto(random(clientwidth), random(clientwidth));
Moveto(random(clientwidth), random(clientwidth));
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
koniec:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
koniec:=false;
image1.Canvas.Brush.Color:=clblack;
image1.Canvas.FloodFill(1,1,0,fsborder);
nadaj_losowe;
repeat
przelicz;
wyswietl;
sleep(1);
zmaz_stare;
application.ProcessMessages;
until koniec;
end;

К примеру как должно быть?)

[Pavia]

К примеру как должно быть?)

К примеру вот так:
http://www.rohitab.com/discuss/topic...ticle-systems/

[min@y™]

К примеру как должно быть?)

Как звучит оригинал задания?

[igor100500]

Написать что-либо с использованием классов(наследование, полиморфизм...и что-то еще)
Рисунок там например и т.д(тобишь к конструсторе координаты точек напихать и чтобы получился рисунок)
У меня звездопад получился, но он у меня реализован не через класс.

[min@y™]

Написать что-либо с использованием классов(наследование, полиморфизм...и что-то еще)
Рисунок там например и т.д(тобишь к конструсторе координаты точек напихать и чтобы получился рисунок)
У меня звездопад получился, но он у меня реализован не через класс.

то есть, задания нету, да?

[igor100500]

На свой выбор, преподавателю важно, чтобы это было реализовано через класс объекта.

Желательно как-то мой код перепихнуть через класс))

ну или пример попроще чтоле, а то там дали ссылку и я ничего особо и не понял там..

[min@y™]

Написать самостоятельно или взять готовую программу?
Я тут дохрена чего понаписал.
Ну, вот, например.

[igor100500]

Самостоятельно конечно, ну я взял отсюда))
http://www.youtube.com/watch?v=NzNpV8B0rOg

[igor100500]

и надо бы через классы это все напичкать)

[min@y™]

ну я взял отсюда

польский язык - твоя родной, панове?