Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

"Пробежка" по константам   Найти похожие ветки 

 
allrussia   (2010-03-06 06:37) [0]

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


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 06:39) [1]

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


 
PZ   (2010-03-06 07:24) [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 08:47) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
2-1275805199
Denisrf
2010-06-06 10:19
2010.08.27
Не получается создать окно.


15-1264052610
brother
2010-01-21 08:43
2010.08.27
Эпидемия ICQ - PiGGy.zip


15-1268978113
oldman
2010-03-19 08:55
2010.08.27
Драйвер для Xerox Phaser 3117 под МЕ


2-1265883987
Int23
2010-02-11 13:26
2010.08.27
TADOStoredProc Как вызвать табличную функцию?


15-1271190602
Юрий
2010-04-14 00:30
2010.08.27
С днем рождения ! 14 апреля 2010 среда