Komponenten über Befehl erstellen

[inherited]

AAAlso:
Arrays: http://www.dsdt.info/tutorials/crashkurs/?page=6 ;)

Delphi-Quellcode:

  with bilderchen[high(bilderchen)] do
  begin
    parent:=self;
    top:=markerimage.top;
    left:=markerimage.left;
    picture.loadfromfile('gfx\decal3.bmp');
  end;

ist das gleiche wie

Delphi-Quellcode:

  bilderchen[high(bilderchen)].parent:=self;
  bilderchen[high(bilderchen)].top:=markerimage.top;
  bilderchen[high(bilderchen)].left:=markerimage.left;
  bilderchen[high(bilderchen)].picture.loadfromfile('gfx\decal3.bmp');

und spart Zeit^^

high liefert das höchste elemnt eines Arrays

[rawsoul]

Super, danke !

Das heißt, es wird jedem Element aus dem Array einen anderer Namen gegeben?
Wie kann ich dann später darauf zurückgreifen? Ich habe nämlich vor, die einzelnen Images später wieder destroyen zu lassen

[SirThornberry]

Du hast ein Array wo jedes Element eines deiner Images ist. Wie zerstört man ein normales Object? mit ".Free". Wenn nun jedes Array Element ein Object ist liegt es doch mehr als nah wie man es zerstört.

[rawsoul]

Merci!

Das ist mein aktueller Stand.

Noch ein Problem...

Delphi-Quellcode:

procedure TForm1.enemyTIMERTimer(Sender: TObject);
begin
  repeat
    begin
      Setlength(enemy1, high(enemy1)+2);
      enemy1[number]:=timage.create(self);
      with enemy1[number] do
        begin
          parent:=self;
          left:=0;
          picture.loadfromfile('gfx\enemy2.bmp');
          transparent:=true;
          top:=2*raster+random(64);
        end;
      number:=number+1
    end
    until number=stage*2
end;

Sobald ich den Timer aktiviere, hängt sich die exe auf. Was stimmt da schon wieder nicht?

//edit
Hat sich erledigt, der Buffer war überlastet... :lol:

[xZise]

Was sollen wir jetzt mit der exe machen?

[rawsoul]

Gar nichts ;)
Wollte euch bloß einen Einblick davon verschaffen, was ich vor habe...