( Вход | Регистрация | Поиск )

Подскажите, подскажите как это осуществить...
Дата обновления: 16.01.2006 - 16:57, перейти к новому сообщению

·NEITR0N
Группа: Наши Люди

Сообщений: 607
Подскажите как осужествить следующий замысел:

CODE
procedure TForm1.Button1Click(Sender: TObject);  
var i:integer;  
begin  
for i:=1 to 100 do begin  
Label[i].Caption:=S;  
end;
end;


Как сделать чтобы лэйблам в зависимости от I задавалось значение?
наприме если I=5 то Label5.Caption:=S;


Ответов(1 - 7)

·scorpio
Группа: СуперМодераторы

Сообщений: 8.029
CODE
procedure TForm1.Button1Click(Sender: TObject);  
var i:integer;  
begin  
for i:=1 to 100 do begin  
TLabel(findcomponent('label'+inttostr(i))).Caption:=S;
end;
end;




ПЖЛСТА!!!

Обращайся еще!!!
Всегда рад помочь!!!


·scorpio
Группа: СуперМодераторы

Сообщений: 8.029
dry.gif Судя по всему, ты забил на это дело?
dry.gif Зачем тогда было топ заводить?

А коль не забил, то отпишись, решил проблему или нет!!! cool.gif


·NEITR0N
Группа: Наши Люди

Сообщений: 607
Спасибо - все рабоает!
Давно искал как это сделать!!!


·NEITR0N
Группа: Наши Люди

Сообщений: 607
А возможно ли сделать тоже самое с переменными?
Например переменным от "mem1" до "mem100" присвоить значение S


·scorpio
Группа: СуперМодераторы

Сообщений: 8.029
QUOTE(NEITR0N @ 15.01.2006 - 22:19)
А возможно ли сделать тоже самое с переменными?
Например переменным от "mem1" до "mem100" присвоить значение S



А не проще сделать так:
CODE
mem[1..100] array of <type>



·NEITR0N
Группа: Наши Люди

Сообщений: 607
Нет - в этом случае это не подойдет. Как при компонентах - можно-ли как-нубудь также?


·scorpio
Группа: СуперМодераторы

Сообщений: 8.029
Дааа! Случай видать у тебя интересный!
Я сколько проги пишу, как-то обходился! smile.gif
Хотя вроде сталкивался когда-то с подобным! Не помню, как решил проблему.

Я думаю, если организовать массив, а в нем хранить пары "название переменной"-"переменная", то можно решить задачу.
Или, как я выше писал, работай с массивом!

Можешь описать задачу подробней. Тогда постараюсь помочь обойти этот "тупик". cool.gif