So, hier der Quelltext:

zusammenfalten · markieren

Delphi-Quellcode:

var
j:integer;

(Timer):

for j:= 1 to 2 do
begin

Ziel(1).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture;
Ziel(2).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture;
end;

Ziel(1) erhält nun das Picture von Image(1) und sofort darauf das von Image(2). Das gleiche passiert mit Ziel(2). Also haben beide Images dasselbe Bild. Das Problem ist nur, das ich das nicht will.

Ziel(1) soll das Image(1) als Picture haben und Ziel(2) soll das Image(2) als Ziel haben.

Wenn sich jemand nun fragt , wieso ich nicht einfach Image(1) und Image(2) eintippe, statt wie oben angegeben. Das würde ich auch tun, wenn es sich später nicht um Hunderte handeln würde.
Ich arbeite an einem Rollenspiel und bin noch in der Probephase. Es würde mir nichts nützen, wenn ich schon jetzt anfieng, ein richtiges Spiel zu programmieren, wenn nicht zwischendurch solche Sachen kommen würden. Deshalb teste ich vorher alles und programmier erst das ganze Spiel, wenn auch jede Kleinigkeit funktioniert.

Sonst wäre die Lösung einfach .

[edit=sakura]Delphi-Tags. Mfg, sakura[/edit]

mach's doch so:

markieren

Delphi-Quellcode:

inc(j);

case j of
1: Image1.Picture... ;
2: Image2.Picture... ;

Hi,

anstatt

markieren

Delphi-Quellcode:

Ziel(1).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture;
Ziel(2).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture;

würde ich eher das machen:
Ziel(j).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture; Sonst weißt du nämlich auch im zweiten Schleifendurchlauf dem ersten Ziel das Bild mit der Nummer j zu.
Jedenfalls wenn ich das richtig verstanden hab...

Bis dann,

S - tefano

[EDIT]
Hm, habs wohl doch falsch verstanden, jetz wo ich nochmal nachles. Ich find Matzes Vorschlag besser
[/EDIT]

Thnx für die 1. und 2. Antwort. Dann gehts noch leichter.

PS: Obwohl das peinlich ist , dass ich das nicht wusste , muss ich nur eine Verbesserung durchführen :

markieren

Delphi-Quellcode:

(Findcomponent('Ziel'+inttostr(j))as TImage).Picture:=
(Findcomponent('Image'+inttostr(j))as TImage).Picture;

Sonst funkts nicht, weil er Ziel(j) nicht erkennt (Ist ja nur für Anfänger, zu denen ich auch gehöre . Ich hatte erst 1 Schuljahr jede Woche 2 Stunden Delphi und in der Schule lern man nur allgeime Sachen, welche aber auch sehr wichtig sind.
Danke

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]

Wenn Du in Deinem ersten Post schreibst:

markieren

Delphi-Quellcode:

for j:= 1 to 2 do
begin
   Ziel(1).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture;
   Ziel(2).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture;
end;

Dann muss auch:

markieren

Delphi-Quellcode:

for j:= 1 to 2 do
   Ziel(j).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture;

funktionieren.

Alles andere würde nicht wirklich viel Sinn machen bzw. mich arg verdutzt stehen lassen. Den Gegenbeweis musst Du erst antreten