using 'loopcounter' as variable name 1

[RtWee]

Hi

I got 10 variable of the type Tbitmap; named bitmap1, bitmap2 .. .. bitmap10;
For initiating i want to apply the same procedure 10 times, rather than repeating myself 10 times I would like to have it in some sort of loop
e.g.


for ii:=1 to 10 do begin
(bitmap ii).free
end;

this of course doesn't work, but what will ?

 

[RtWee]

i've solved my problem sofar by making arrays

but i still would like to know if there is the possibillity
to use a loopcounter to address a variable

 

[towerbase]

I've already answered this for you when you posed the question in the thread.
"Determining field in record type"

Here is the answer again:

There is a useful function in Delphi called FindComponent and it is ideal for your requirement.

var
  ii: integer;
  bmp: TBitMap;
for ii := 1 to 10 do begin
  bmp := FindComponent('BitMap'+IntToStr(ii)) as TBitMap;
  bmp.Free;
end;

Andrew
Hampshire, UK

 

[RtWee]

superb !!!

thanx