/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Skifte billede
Fra : Thomas Wessel


Dato : 02-12-01 21:28

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 Due (03-12-2001)
Kommentar
Fra : Thomas Due


Dato : 03-12-01 14:33

"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

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste