цикл и ПОЧТИ одинаковые названия переменных

[Seran4ek]

Доброго времени суток. У меня есть набор переменных b1..b10 например.
Я хочу организовать цикл где эти значения присываиваются элементам массива.
но код типа

  Mas[1]:=b1

и тд не удобен(а если не 10 а 100 значений?)
как сделать что-то наподобе

for i:=0 to 10
Mas[i]:=b['i']

b['i'] конечно не правильно, но как сделать чтобы название по цикл менялось?

[heart]

а сделать массив b, в котором будут храниться эти значение, не подходит?

[Seran4ek]

heart
не, это конечно можно
но как сделать без этого? чтобы названия перебирались)

[heart]

если создать указатели на переменные, то может получиться, особенно если переменные объявлены последовательно. Тогда за первой переменной будет стоять вторая и т.п А указатель сделать только на первую переменную, и потом увеличивать его. После первого увеличения он будет указывать, на вторую переменную и т.п И еще переменные лучше объявлять локально, на делфи еще такого не пробывал, щас проверю свою теорию.

[Seran4ek]

heart
понятно. тоесть какойто стандартной функции или конструкции позволяющей этого сделать нет) спасибо большое за помощ)

[Marsel737]

Seran4ek, не проще сразу так объявить:

Mas: array[1..100] of integer = (1..100);

Или если у b1 тип string:

Mas: array[1..2] of string = ('a', 'c');

[Seran4ek]

Marsel737
значения переменных высчитываются в ходе выполнения программы)

[Marsel737]

Seran4ek, а зачем сначала b1:=значение, а потом M[1]:=b1, может сразу M[1]:=значение ???

[Seran4ek]

Marsel737
нет, в моем случае так не эффективно. мне нужен был именно перебор по циклу имен)

[heart]

var
i:byte;
pL:^char;
Mas: array[1..5] of char;
a1,a2,a3,a4,a5:char;
begin
pL:=@a1; //ставим указатель на первую переменную


  a1:='1';
  a2:='2';
  a3:='3';
  a4:='4';
  a5:='5';

for I:=1 to 5 do begin

  Mas[i]:=pL^;
  inc(pL);  // мона еще попробовать так dec(pL); 
  Memo1.Lines.Add((Mas[i]));

end;

end;

Примерно так, но тут переменные ложаться не рядом, потому выбрасывает всякую чушь. Думаю без асм вставки тут не обойтись.