Hallo
und
Mit den Anweisungen
Delphi-Quelltext
1: 2: 3: 4: 5: 6:
| Image1.picture.loadfromfile ('ABild'); Image2.picture.loadfromfile ('ABild'); Image3.picture.loadfromfile ('ABild'); Image1.picture.loadfromfile ('BBild'); Image2.picture.loadfromfile ('BBild'); Image3.picture.loadfromfile ('BBild'); |
wird in jedes Image jedes Bild geladen. Am Ende steht in allen BBild.
Du benötigst eine zufällige Auswahl. Dazu gibt es die Anweisung random().
Mit auswahl:=random(2) wird eine zufällig Zahl 0 oder 1 (nicht 2!) "gewürfelt". Mit if-then-else wird
Delphi-Quelltext
1: 2: 3:
| Auswahl:=random(2); if Auswahl=0 then Image1.picture.loadfromfile ('ABild') else Image1.picture.loadfromfile ('BBild'); |
Kürzer ist
Delphi-Quelltext
1: 2:
| if random(2) then Image1.picture.loadfromfile ('ABild') else Image1.picture.loadfromfile ('BBild'); |
Willst du noch mehr Bilder auswählen, muss der Wert in random entsprechend erhöht werden. Dann solltest du case statt if-then-else nutzen.
Nebenbei: In der show-Methode des Formulars solltest du randomize schreiben. Das garantiert bei jedem Programmstart eine neue Zufallsfolge.
Deine Bilder haben bestimmt einen Typ. Schöner wäre also 'ABild.bmp', 'ABild.jpg' oder entsprechend. Andernfalls findet er die Dateien nicht. Evtl. musst du auch noch den Ordner angeben.
Für die Ausgabe solltest du auch if-then-else verwenden, also
Delphi-Quelltext
1: 2:
| if (Image1 = Image2) AND (Image3 = Image1) then panel2.caption:='gut' else panel2.caption:='......'; |
Beste Grüße
Mathematiker
Töten im Krieg ist nach meiner Auffassung um nichts besser als gewöhnlicher Mord. Albert Einstein