Instanzen vom gleichen Typ finden

[guidobrose]

Hallo

wie kann ich in einer Instanz alle anderen Instanzen vom gleichen Typ finden? Mein Versuch haut leider nicht hin.

Delphi-Quellcode:

const
  NumberOfBirds=20;

type

  TBirds = class(TGraphicControl)
  private
  protected
    procedure Paint; override;
    procedure Find;
  public
  end;

procedure TBird.Find;
var i: Integer;
begin
  for i:=0 to Parent.ComponentCount do
    if Parent.Components[i]=TBird then //Funktioniert leider nicht
    begin
    //Hier kommt noch was
    end;
end;


//Im Hauptformular
procedure TFrmEBirds.FormCreate(Sender: TObject);
var i,x,y: Integer;
begin
  Randomize;
  for i := 0 to NumberOfBirds do
  begin
    Birds[i]:=TBird.Create(self);
    Birds[i].Parent:=self;
    x:=Random(self.Width);
    y:=Random(self.Height);
    Birds[i].Left:=x;
    Birds[i].Top:=y;
  end;
end;

Über Components kann ich dann auch auf die Eigenschaften der anderen Instanzen zugreifen, oder seh ich das falsch?

Guido

[cruiser]

So evtl? ;)

Delphi-Quellcode:

if (Parent.Components[i] is TBird) then

Und zugreifen mit:

Delphi-Quellcode:

with (Parent.Components[i] as TBird) do
begin
  // mache was mit den Eigenschaften
end;

oder du legst dir einen temporären Bird an *g*

Delphi-Quellcode:

var
  tmp: TBird;

{...}

tmp := (Parent.Components[i] as TBird);
tmp.SomeProperty := irgendwas;
tmp.SomeMethod(SomeArgument);

[guidobrose]

:wall:

[SirThornberry]

anstelle des Parents solltest du lieber den Owner abfragen.