Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

"Пробежка" по константам [D7, XP, 2003]


allrussia ©   (2010-03-06 06:37:00) 

Мастера, возможно ли такое?


const s1: string = 'a' ;
const s2: string = 'b' ;
const s3: string = 'c' ;
const s4: string = 'd' ;
const s5: string = 'e' ;

чего-то :='';
for i:= 1 to 5 do
чего-то:= чего-то + s(i);

result: чего-то = abcde


короче мне нужно перебирать значения констант и получать к ним доступ по индексам

словно это компонент


allrussia   (2010-03-06 08:47:00) [1]

то что надо спасибо!


PZ   (2010-03-06 07:24:00) [2]

Наверно так:
Const
 S : Array[1..5] of String = ('a','b','c','d','e');

....

 for i:= 1 to 5 do
 чего-то:= чего-то + s[i];


allrussia   (2010-03-06 06:39:00) [3]

p.s TStringList не предлагать


Наверх

Титульная страница Поиск, карта сайта Написать письмо