Gleiches Image in Array speichern

[mkinzler]

Im Parameter, wie ich geschrieben habe

[Hamsterpower]

So?

bmpfeld[1,1].bild := TImage.Create(bmpfeld[1,1].bild);

[mkinzler]

Nein die übergeordnete komponente z.B. die Form (Self)

[Hamsterpower]

Das wäre dann die Form: form1..

bmpfeld[1,1].bild := TImage.Create(form1); Aber dann kommt nach dem Compilieren die Fehlermeldung: Cannot assign a TImage to a TImage

Hier der Codeabschnitt:

Delphi-Quellcode:

bmpfeld[1,1].bild:=TImage.Create(form1);
bmpfeld[1,1].Bild.Assign(form1.Image1);
bmpfeld[1,1].Bild.Top:=(21);
bmpfeld[1,1].Bild.Left:=(108);
bmpfeld[1,1].Bild.BringToFront;
bmpfeld[1,1].Bild.Visible:=true;

[mkinzler]

BTW. Du solltest keine feste Referenz auf die Form (Form1) sondern Self nehmen.
Und würde nur einer Instanz von TImage verwenden und nur die Positionen Speichern

[Hamsterpower]

Wie meinst du das mit nur einer Instanz von TImage?
Und wie kann ich Self festlegen?

[mkinzler]

Zitat:

Wie meinst du das mit nur einer Instanz von TImage?

Da die Bilder alle gleich sind, reicht es ja dieses nur einmal im Speicher zu halten.

Zitat:

Und wie kann ich Self festlegen?

Self zeigt auf die eigene Klasse.

[Hamsterpower]

Das mit der Speicheroptimierung mach ich später Hauptsache es läuft mal.

So müsste self stimmen, oder (Hab Zeiger bis jetzt nur in Pascal gemacht..)?

var self:^Tform1; Und so die Zeile:

bmpfeld[1,4].bild := TImage.Create(self^);

[mkinzler]

self^ != Self

[Hamsterpower]

Bei bmpfeld[1,4].bild := TImage.Create(self); (Habs richtiggestellt )
kommt die Fehlermeldung:

[Error] Unit1.pas(119): Incompatible types: 'TComponent' and 'Pointer'

(Hab oben falsch editiert..)