Hallo und ebenfalls willkommen,
Meine Hinweise stehen unter Vorbehalt: Ich habe mir dein Vorgehen "von der Sachlogik" her nicht durchdacht.
Noch etwas zur Verbesserung: Die 1000 if-then-Konstruktionen sind nicht schön, weil in allen Fällen alle Prüfungen durchlaufen werden müssen, aber in jedem Abschnitt genau eine Variante zutreffen kann. Besser ist eine verschachtelte Konstruktion (kein wirklicher Delphi-Code) etwa so:
Delphi-Quellcode:
var Current_Image;
case (erster Index) of
1: case (zweiter Index) of
1: Current_Image = image1;
// usw.
case a[i][j] of
0: Current_Image.picture.LoadFromFile('wasser.jpg');
// usw.
Damit zusammenhängend könnte die Anzeige-Prozedur geändert werden: Entweder es werden alle Bilder neu angezeigt, dann ist die o.g. Verschachtelung sinnvollerweise in eine doppelte Schleife umzusetzen. Oder es wird ein Bild neu angezeigt, dann sollten die Indizes als Parameter an die Anzeige-Prozedur übergeben und genutzt werden.
Wie gesagt: unter Vorbehalt, aber als Anregung auf jeden Fall nützlich.
Gruß Jürgen
[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]