Schiffe versenken Delphi Hilfe!!

[idefix2]

Die ganzen Abfagen kann man sich sparen mit:

Delphi-Quellcode:

const bildname: array[0..3] of string = ('wasser.jpg', 'schuss.jpg', 'schiff.jpg', 'wrack.jpg');
....

image1.picture.loadfromfile(bildname[a[1][1]]);
image2.picture.loadfromfile(bildname[a[1][2]]);
....

Und auf die Komponenten kann man in einer Schleife über den Namen zugreifen
'image'+intoToStr(i)


Nachdem Windows den Dateizugriff wohl im Cache halten wird, ist es vielleicht egal, trotzdem würde ich eher ein Feld mit 4 TImage Variablen anlegen und in die nur einmal die Bilder einlesen, unzählige Male die Dateien öffnen und lesen ist sicher nicht sinnvoll:

Delphi-Quellcode:

var bild: array [0..3] of timage;
bild[0].loadfromfile ('wasser.jpg');
bild[1].loadfromfile ('schuss.jpg');

und dann

Delphi-Quellcode:

image1.picture := bild[a[1][1]];
image2.picture := bild[a[1][2]];

...

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]