Das erste Mal, dass mir die SuFu nicht weiter gebracht hat..

Ich habe das Problem, dass ich das gleiche Image mit einer Schleife in ein Array speichern will. Allerdings wird das Image immer weitergeschoben und scheint nur im letzten Arrayfeld auf..

markieren

Delphi-Quellcode:

 for x_:=0 to 30 do
  for y_:=0 to 50 do
    begin
      bmpfeld[x_,y_].Bild:=form1.Image4;
      bmpfeld[x_,y_].Bild.Top:=(y_*7+41);
      bmpfeld[x_,y_].Bild.Left:=(x_*7+101);
      bmpfeld[x_,y_].Bild.BringToFront;
      bmpfeld[x_,y_].Bild.Visible:=true;
    end;

Schonmal danke für die Hilfe

Wie ist der Record deklariert? Was hast du genau vor?

Ist ja auch klar, form1.Image4 ist ja nur ein Objekt. Jede Änderung wirkt sich dann auf dasselbe Objekt aus, egal welchen Zeiger auf das (selbe) Objekt Du verwendest.

Willst Du Kopien haben, müsstest Du neue Bilder anlegen (TImage.Create) und denen die Eigenschaften des Originals zuweisen (.Assign).

Ob ein Array aus TImage allerdings eine ideale Lösung wäre, erst recht wenn alle gleich aussehen sollen... beschreib doch mal, was Du vorhast...

Der Record sieht nur so aus:

markieren

Delphi-Quellcode:

  MyImage = record
    Zahl:Integer;
    Bild:TImage;
  end;

Und das Array so:

var Bmpfeld: array[0..30,0..50] of MyImage; Ich will einen Snakeclon programmieren. Dazu wollte ich ein 30*50 Array anlegen, das mit einem Integerwert die Richtung speichert, die die Schlange genommen hat, als sie durchgekommen ist, und die Image sollten dann die Schlange zusammenbauen, eben auch oft aus dem selben Grundimage.

Ganz am Anfang wollte ich alle Arrayfelder mit einem Hintergrund füllen, deshalb auch diese Schleife.

Dann solltest du aber auch kopien des Bildes speichern anstatt referenzen (Zeiger) auf eines oder besser nur die Positionen speichern.

Und wie lege ich eine Kopie an?

So gehts nicht..

markieren

Delphi-Quellcode:

Timage.Create(bmpfeld[1,1].Bild);
bmpfeld[1,1].Bild.Assign(form1.image4);

bmpfeld[1,1].Bild := TImage.Create;

Zitat von DeddyH:

bmpfeld[1,1].Bild := TImage.Create;

[Error] Unit1.pas(128): Not enough actual parameters..

Was muss ich da noch dahinter dran schreiben?

Den Owner.
z.B
bmpfeld[1,1].Bild := TImage.Create(Self);

Und wo wird der festgelegt?