Hi,
da ich ein Programmteil ziemlich oft brauche habe ich ihn als prozedur geschrieben:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure deselect; //deselektiert alle würfel
var i: integer;
begin
for i:=1 to 6 do
if (wuerfel[i].selected) then
wuerfel[i].selected:=false;
TImage(FindComponent('wuerfel'+IntToStr(i))).Picture.LoadFromFile(IntToStr(wuerfel[i].zahl)+'.bmp');
end; |
Allerdings bringt Delphi beim compilieren immer die oben genannte Fehlermeldung.
In dem normalen programm funktioniert der programmtext, nurnicht in einer extra prozedur.
Gibt es eine andere Möglichkeit den namen "wuerfel" mit der laufvariablen [i] zu kombinieren?
Hinweiss: nicht das es zu irreführungen kommt, das arrayr wuerfel[i] hat nix mit den images wuerfel1 bis wuerfel6 zu tun. Der programmtext funzt auf jeden fall.
Hoffntlich hat jemand dafür ne Lösung. Konnte bisher nichts wieter finden und in der delphi-hilfe ist findcomponent nichtmal aufgeführt.
mfg
Helmut
