Подскажите скачать бесплатно

NEITR0N

2.01.2006 - 11:23

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

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;

scorpio

2.01.2006 - 12:54

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

3.01.2006 - 9:42

Судя по всему, ты забил на это дело?

Зачем тогда было топ заводить?

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

NEITR0N

3.01.2006 - 14:08

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

NEITR0N

15.01.2006 - 23:19

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

scorpio

16.01.2006 - 12:22

QUOTE(NEITR0N @ 15.01.2006 - 22:19)

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

А не проще сделать так:

CODE

mem[1..100] array of <type>

NEITR0N

16.01.2006 - 15:28

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

scorpio

16.01.2006 - 16:57

Дааа! Случай видать у тебя интересный!
Я сколько проги пишу, как-то обходился!

Хотя вроде сталкивался когда-то с подобным! Не помню, как решил проблему.

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

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

Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке: Подскажите

Подскажите

подскажите как это осуществить...