Also ich würde ein record machen in welches ich Bild und Daten zu dem Bild speichere und das dann in ein record, sowas:
Delphi-Quellcode:
TAusrichtung = (ageradewaagerecht,ageradesenkrecht, alinkskurvelo,alinkskurvelu,alinkskurveru,alinkskurvero, arechtskurvelo,arechtskurvelu,arechtskurveru,arechtskurvero);
TSchienenRecord = record
Bild : TBitmap;
//Was dir an Infos einfällt
end;
TSchienenFeld = array[TAusrichtung]of TSchienenRecord
var schienen : TSchienenfeld;
procedure wasweisich;
begin
schienen[ageradewaagerecht].Bild:=LadeBild;
end;
Also so finde ich solche Geschichten am Einfachsten
