problem mit selbst erstellter Komponente

[Delphi-Noobie]

Hi,

ich hab nen Prog geschrieben, indem ein Image, was man selbst steuert nie über ein Control gelangen kann. Dabei übergibt die Controls, die nicht überschnitten werden soll in einem array an die Procedure. übergibt man jedoch eine selbst ertellte Komponente, die mehr als einmal created wurde klappt der Code nicht mehr. Wie kann man das beheben?

Code:

Procedure Ttest.leftcrash(T:array of Tcontrol); // linke seite des bildes soll nix überschneiden
var i:integer;
begin
for i:=0 to high(T) do begin
if (pic.Left < t[i].Left+t[i].Width+speedy) and //pic:Timage; speedy = speed des Bildes beim bewegen
   (pic.Left > t[i].Left+speedy) and
   (((pic.Top < t[i].Top+t[i].Height)and(pic.Top > t[i].Top))or
   ((pic.Top+pic.Height > t[i].Top)and(pic.Top+pic.Height < t[i].Top+t[i].Height))or
   (pic.Top < t[i].Top)and(pic.Top+pic.Height>t[i].Top+t[i].Height)or
   (pic.Top = t[i].Top))
   then aa[i]:=true else aa[i] := false; // aa:array of boolean -> true = überschneidet sich

if (pic.Left - (t[i].Left+t[i].Width) < speedy) and  //Formularränder nicht verlassen
   (pic.Left - (t[i].Left+t[i].Width) > 0) then
   pic.Left := t[i].Left+t[i].Width;
end;
end;

wenn ich jetzt zum Beispiel als Array das übergebe:

Code:

var z:array of Tcontrol;
    bb:Tshape;
begin
bb:=Tshape.Create(self);
bb.Parent:=self;
bb.SetBounds(200,30,50,20);
bb.Show;
bb:=Tshape.Create(self);
bb.Parent:=self;
bb.SetBounds(250,30,50,20);
bb.Show;
setlength(z,3);
z[0]:=shape1;
z[1]:=shape2;
z[2]:=bb;
end;

dann erkennt er nur shape1, shape2 und das 2. bb, das 1. wird ignoriert. Wie kann ich das verhindern?

[Christian Seehase]

Moin Delphi-Noobie,

Zitat:

Zitat von Delphi-Noobie

...das 1. wird ignoriert. Wie kann ich das verhindern?

auch wenn das jetzt gemein klingt:
Indem Du es mit übergibst.
Wenn Du ein Array mit drei Shapes übergibst, Du aber vier hast... ;-)

So wie Du es geschrieben hast, wird der Variablen bb zweimal hintereinander eine Instanz von TShape zugewiesen, ohne dass Du den Wert des ersten in das Array schreibst.

Du solltest erst das Array dimensionieren, und dann, jeweils nach dem Erzeugen des Shapes, den Wert eintragen.

[Delphi-Noobie]

Oki das klapp zwar:

Code:

var z:array of Tcontrol;
    bb:Tshape;
begin
setlength(z,4);
z[0]:=shape1;
z[1]:=shape2;
bb:=Tshape.Create(self);
bb.Parent:=self;
bb.SetBounds(200,30,50,20);
bb.Show;
z[2]:=bb;
bb:=Tshape.Create(self);
bb.Parent:=self;
bb.SetBounds(250,30,50,20);
bb.Show;
z[3]:=bb;
end;

Aber geht das nicht, dass man einfach nur bb eingeben kann und er dann ebend alle bb's durchgeht, ohne jedes einzeln ins array einzutragen?

[Christian Seehase]

Moin Delphi-Noobie,

Zitat:

Zitat von Delphi-Noobie

Aber geht das nicht, dass man einfach nur bb eingeben kann und er dann ebend alle bb's durchgeht, ohne jedes einzeln ins array einzutragen?

Es gibt ja nur ein bb, welche soll er da durchgehen?

[EDIT]
Du könntest den Shapes ja auch entsprechende Namen geben, und dann mittels FindComponent durch die Liste der Shapes durchgehen.
[/EDIT]

[Delphi-Noobie]

oki ich versuch mein bestes :P Thx erstmal