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
Судя по всему, ты забил на это дело?
Зачем тогда было топ заводить?
А коль не забил, то отпишись, решил проблему или нет!!!
scorpio, 16.01.2006 - 12:22
QUOTE(NEITR0N @ 15.01.2006 - 22:19)
А возможно ли сделать тоже самое с переменными?
Например переменным от "mem1" до "mem100" присвоить значение S
А не проще сделать так:CODE
mem[1..100] array of <type>
scorpio, 16.01.2006 - 16:57
Дааа! Случай видать у тебя интересный!
Я сколько проги пишу, как-то обходился!
Хотя вроде сталкивался когда-то с подобным! Не помню, как решил проблему.
Я думаю, если организовать массив, а в нем хранить пары "название переменной"-"переменная", то можно решить задачу.
Или, как я выше писал, работай с массивом!
Можешь описать задачу подробней. Тогда постараюсь помочь обойти этот "тупик".