Hi Leute,
ich hab mir den Kopf zerbrochen, aber ich finde einfach keine Lösung...
Ich habe eine Class:
(alles gekürzt und umbenannt)
Delphi-Quellcode:
type
Tclass=CLASS
Img1,Img2,Img3:TPicture;
Obj:TObject;
procedure state(n:INTEGER);
end;
//und die procedure
procedure TClass.state(n:INTEGER);
begin
case n of
1:(obj as TImage).Picture:=IMG1;
2:(obj as TImage).Picture:=IMG2;
3:(obj as TImage).Picture:=IMG3;
end;
end;
//und
var xxx:TClass
Ich hab noch 3 TImages, wo win Picture schon drin ist (alle verschiedene bilder) mit den namen z.B. IMG_1,IMG_2,IMG_3...
Und dazu ein leeres TImage: image1 (also leer im sinne von kein image1.picture geladen)
An einer Stelle meines Programmes soll er folgendes tun:
Delphi-Quellcode:
xxx:=TClass.Create;//also das ist eigentlich beim form.create, aber damit ihr wisst, dass es das auch gibt^^
xxx.Img1:=img_1.Picture;
xxx.Img2:=img_2.Picture;
xxx.Img3:=img_3.Picture;
xxx.state(strtoint(edit1.text));
//und noch paar weitere Sachen, aber dazu kommt es eh nicht...
Also:
Als Ergebnis krieg ich immer, dass Image1 kein Bild enthält...
Beim Debuggen merkte ich, dass das Übergeben von img_1 zu xxx.IMG1 schon nicht funktioniert...
Ich finde aber einfach kein Fehler...
kann mir jemand nen Tipp geben, woran das liegen könnte??
MfG Simon