[Delphi 5] Bilder vergleichen

[X23^Piracy]

Delphi 5 bitte helfen

Hi ich hab als grundlage einfach zwei Timage felder, in diese werden per zufallsgenerator bilder geladen, diese bilder enthalten die zahlen 1-5. diese möchte ich mit (if then) vergleichen und wenn das gleiche Bild geladen ist soll ein Label mit der Caption Gewinn beschriftet werden.

if Bild1.Picture = Bild3.Picture then
Label1.Caption := 'gewinn';


Das funktioniert nicht, kompilieren geht aber ohne fehler.
Was mache ich falsch ?


MfG X23

 

[pcw]

verglich bitte Image1.Picture.Bitmap oder entsprechendes und versuch es nochmal

 

[7H3 N4C3R]

Das sollte nicht funktionieren.

Du musst Dir darüber im klaren sein, was Du da überhaupt vergleichst : Und zwar zwei Zeiger. Diese sind immer unterschiedlich, es sei denn sie zeigen auf das selbe Objekt. Daher kann so ein Vergleich nicht funktionieren.

Die einfachste Möglichkeit ist, in die Eigenschaft Tag vom jedem TPicture die entsprechende Zahl zu schreiben, welches Bild geladen wurde. Dann kannst Du einfach die Tag-Werte miteinander vergleichen.

case Random (5) of
  0:
  begin
    .... // Bild 1 laden
    Bild1.Tag := 1;
  end;
  ...... // analog für die anderen Bilder
end;

...

// Verlgeich :
if Bild1.Tag = Bild2.Tag then
  Label.Caption := 'Gewinn';