---

Jeg er nybegynder, så jeg tror at mit spørgsmål skulle være let at svare på
selvom det er lidt bredt. Jeg har en "onoff: array[1..4] of boolean;" og fire
objekter: felt1, felt2, felt3 og felt4. Jeg har "improviseret" med alt det jeg
ikke vidste, så følgende programstump er MEGET forkert, men jeg håber, at i
udfra det kan regne ud hvad jeg mener og så forhåbentligt vil fortælle hvordan
det burde være.

for i:=1 to 4 do
if onoff[i] then
(felt+i).picture:=loadimage('pic-on.jpg')
else
(felt+i).picture:=loadimage('pic-off.jpg');

Meningen med "(felt+i)" er, at hvis i=2 så henviser den til felt2.picture.
Håber det kan lade sig gøre, men har ikke rigtig nogen ide om hvordan.

På forhånd tak. Hvis I/du ikke forstår hvad jeg mener, så skriv lige, så jeg
kan få det forklaret ordentligt på en eller anden måde.

VH Velle

(ICQ#: 11943646)


--
Posted from sdnat1.dk-tv.net [195.249.246.249]
via Mailgate.ORG Server - http://www.Mailgate.ORG

---

"Thomas Wessel" <tlw@ofir.dk> wrote in message news:<d9a3911c65ce11f17e257dd8597d4519.47896@mygate.mailgate.org>...
> Jeg er nybegynder, så jeg tror at mit spørgsmål skulle være let at svare på
> selvom det er lidt bredt. Jeg har en "onoff: array[1..4] of boolean;" og fire
> objekter: felt1, felt2, felt3 og felt4. Jeg har "improviseret" med alt det jeg
> ikke vidste, så følgende programstump er MEGET forkert, men jeg håber, at i
> udfra det kan regne ud hvad jeg mener og så forhåbentligt vil fortælle hvordan
> det burde være.
>
> for i:=1 to 4 do
> if onoff[i] then
> (felt+i).picture:=loadimage('pic-on.jpg')
> else
> (felt+i).picture:=loadimage('pic-off.jpg');
>
> Meningen med "(felt+i)" er, at hvis i=2 så henviser den til felt2.picture.
> Håber det kan lade sig gøre, men har ikke rigtig nogen ide om hvordan.
>
> På forhånd tak. Hvis I/du ikke forstår hvad jeg mener, så skriv lige, så jeg
> kan få det forklaret ordentligt på en eller anden måde.
>
> VH Velle
>
> (ICQ#: 11943646)

Det er sådan set let nok at gøre det du ønsker. En mulig måde som rammer
ret tæt på dit eksempel er følgende :

type
Form1 = Class(TForm1)
Image1 : TImage;
Image2 : TImage;
Image3 : TImage;
Image4 : TImage;
procedure FormCreate(Sender : TObject);
Private
Images : Array[1..4] of TImage;
Public

end;

....

procedure Form1.FormCreate(Sender : TObject);
begin
Images[1] := Image1;
Images[2] := Image2;
Images[3] := Image3;
Images[4] := Image4;
end;

Herefter anvender du Images[idx] til at tilgå et
billede ud fra en nummering.

Mvh
Thomas