Летающие шарики (Delphi)

[Пепел Феникса]

А вне контекста TShar X и Y - не существуют...

ну метод distance это всетаки констекст TShar

[Alena_44]

Как мне достать радиус из массива shars???
Я пишу

distance(Items[i].Radius)

Что неправильно? Выдаётся ошибка

Undeclared identifier: 'Radius'

И ещё одна ошибка:
Private symbol 'kill' declared but never used
Как от неё избавиться?

[Stilet]

Items пренадлежит классу ObjectList, а не шару. Это список, хранящий ссылки на объекты, не более, и возвращает он ссылки на предка всея объектов - TObject. Потому его нужно приводить к типу нужного нам класса - шарика

distance(TShar(Items[i]).Radius)

P.S. А вообще молодца, девченка... Не многие студены дотягивают до понимания такого. Большинство забивают на это кол, даже не пытаясь разобраться, и видя что тут за них все писать никто не будет. Респект короче

[Vanta11a]

И ещё одна ошибка:
Private symbol 'kill' declared but never used
Как от неё избавиться?

Это не ошибка, а уведомление. Где-то объявлен "kill", однако он не используется в программе (т.е. не меняется, к нему никто не обращается).
Если он не нужен - найти место объявления и убрать из него объявление, уведомление исчезнет.

[phomm]

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

distance(TShar(Items[i]).Radius)

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

distance((Items[i] as TShar).Radius)

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

P.S. А вообще молодца, девченка... Не многие студены дотягивают до понимания такого. Большинство забивают на это кол, даже не пытаясь разобраться, и видя что тут за них все писать никто не будет. Респект короче

абсолютно согласен ! проявляет старание, чем и заслуживает уважение и более деликатное отношение, всем бы в пример ставить

[Alena_44]

Спасибо большое)))
Но у меня опять возникла проблема... Шарики не хотят удалятся((
Уже даже пишу

function TShar.distance: boolean;
begin
Result:= true

end;

procedure TShar.Kill;
var i:integer;
begin
with TForm1(Form).Shars do begin
 for i:=0 to Count-1 do
  if (self<>Items[i]) and distance=true then
    delete(i);
end;
end;

т.е. Шариков вроде вообще появиться не должно, но они летают как ни в чём не бывало (((

[phomm]

этот код ни о чем не говорит... надо кроме самого кода, который возможно неправильно составлен ( меня смущает проверка (self<>Items[i]) и неизвестный метод delete(i) , это не функция ли для работы со строкой ?) также надо его ещё и грамотно вызвать, сообразуясь с задачей. советую Вам выложить весь проект... и описание того чего вы хотите добиться НА ПРОГРАММНОМ УРОВНЕ чтобы все поняли, а то "не хотят удаляться " это чрезвычайно размытое понятие

[Alena_44]

В общем я хочу чтобы при столкновении шариков из списка shars удалялся меньший по радиусу.
Пытаюсь сделать чтобы шарики хотя бы просто исчезали при столкновении. Вот исчезать они и не хотят.

Вот код. В нём шарики вроде появляться не должны, но появляются.

unit SharikiUnit1;

interface

uses      contnrs,
  Windows, Messages, SysUtils, {Variants,} Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TShar=class
   private
    Fy: double;
    Fx: double;
    FRadius: Double;
    angle:Double;
    procedure draw;
    procedure Setx(const Value: double);
    procedure Sety(const Value: double);
    procedure SetRadius(const Value: Double);
    procedure kill;

    function dist:Boolean;
    function distance:Boolean;
   public
    Form:TForm;
    property Radius:Double read FRadius write SetRadius;
    property x:double read Fx write Setx;
    property y:double read Fy write Sety;
    procedure Step(ByStep:Double=30);
    constructor Create(f:TForm);
  end;

  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private  shars:TObjectList;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TShar }

constructor TShar.Create(f: TForm);
begin
 Form:=f;
 angle:=random(7);
end;



function TShar.dist;               
begin
 Result:=((x-radius)>0)and((x+radius)<form.Width)and((y-radius)>0)and((y+radius)<form.Height);
end;

procedure TShar.draw;         
begin
 with form.Canvas do begin
  Brush.Style:=bsClear;
  Ellipse(round(fx-Radius/2),round(fy-Radius/2),round(fx+Radius/2),round(fy+Radius/2));
 end;
 Step;
end;

// Не нужные процедуры
procedure TShar.SetRadius(const Value: Double);
begin
  FRadius := Value;
end;

procedure TShar.Setx(const Value: double);
begin
  Fx := Value;
end;

procedure TShar.Sety(const Value: double);
begin
  Fy := Value;
end;
//

procedure TForm1.FormCreate(Sender: TObject);
var s:TShar;  i:integer;
begin              Randomize;
 shars:=TObjectList.Create;              
 for i:=1 to 4 do begin
  s:=TShar.Create(Form1); shars.Add(s);
  s.Radius:=random(200);
  s.x:=random(Width-round(s.Radius));
  s.y:=random(Height-round(s.Radius));
 end;
end;

procedure TForm1.FormDestroy(Sender: TObject);               
begin
 shars.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
var i:integer;
begin
 for i:=0 to shars.Count-1 do TShar(shars[i]).draw;   
end;

procedure TShar.Step;
begin
 if not dist then angle:=angle+pi/(4+random(2));     
 fx:=fx+ByStep*cos(angle);
 fy:=fy+ByStep*sin(angle);
end;

function TShar.distance: boolean;
begin
Result:= true
end;

procedure TShar.Kill;
var i:integer;
begin
with TForm1(Form).Shars do begin
 for i:=0 to Count-1 do
  if (self<>Items[i]) and distance=true then
    delete(i);
end;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Repaint;
end;

end.