Выполнить одно действие со списком переменных.

[Vova777]

Как можно написать данный код более грамотно?

  spt0:= TBitMap.Create;
  spt1:= TBitMap.Create;
  spt2:= TBitMap.Create;
  spt3:= TBitMap.Create;
  spt4:= TBitMap.Create;
  spt5:= TBitMap.Create;
  spt6:= TBitMap.Create;
  spt7:= TBitMap.Create;
  spt8:= TBitMap.Create;
  spt9:= TBitMap.Create;
  spt10:= TBitMap.Create;

т.е. нужно выполнить одно действие со списком переменных.

[Человек_Борща]

вот так:

var
  a:array[0..10] of TBitMap;
  i:ShortInt;
begin
  for i:=0 to Length(a) do
  a[i]:=TBitMap.Create;
end;

[Vova777]

Сообщение от Человек_Борща

вот так:

ошибка: Access violation... Read of address 00000000...

Я что-то не понял, и какие же имена он присвоит этим переменным?

[Человек_Борща]

да там ошибка с циклом, пролетает на 1у больше.
А в целом смысл понятен.

[Vova777]

Сообщение от Человек_Борща

да там ошибка с циклом, пролетает на 1у больше.
А в целом смысл понятен.

Я что-то не понял, и какие же имена он присвоит этим переменным?

[Аватар]

for i:=0 to Length(a)-1 do
или
for i:=0 to High(a) do
или
for i:=0 to 10 do

Я что-то не понял, и какие же имена он присвоит этим переменным?

Ни какие, все указатели на созданные битмапы в массиве

[Vova777]

Сообщение от Аватар

Ни какие, все указатели на созданные битмапы в массиве

Я понял, что он считает на 1 больше, исправил.

Можно мне теперь пример, как мне работать с подобными переменными?
Мне надо теперь так сделать:

  spt0.LoadFromFile(...);

т.е. переменная spt0 - это теперь первый элемент массива, соответственно spt10 - последний.

[Аватар]

a[0].LoadFromFile(...);

[Vova777]

Спасибо, понял.