|
Вопрос # 4 954/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Вот у меня есть 3 Label (label1, label2, label3)
Есть переменная I целое число от 1 до 3
I Постоянно меняется
Как мне делать действия с Label под номером I
 |
Вопрос задал: Адмирал (статус: Посетитель)
Вопрос отправлен: 24 января 2011, 18:00
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Мережников Андрей
Здравствуйте, stason!
Пример в приложении, внутри цикла, в котором изменяется I, вставляешь приведенный кусок кода
 |
Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 24 января 2011, 19:34
Оценка за ответ: 4
|
Мини-форум вопроса
Всего сообщений: 12; последнее сообщение — 24 января 2011, 21:09; участников в обсуждении: 4.
|
min@y™ (статус: Доктор наук), 24 января 2011, 18:02 [#1]:
Я пас.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 18:11 [#2]:
к чему ты это сейчас написал
|
|
|
Мережников Андрей (статус: Абитуриент), 24 января 2011, 18:49 [#3]:
какие именно действия? От чего зависит изменение I ?
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 18:51 [#4]:
I меняется в цикле
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 20:19 [#5]:
подругому никак? потамучто у меня будет 128 лабелов
|
|
|
Мережников Андрей (статус: Абитуриент), 24 января 2011, 20:32 [#6]:
надо было сразу говорить про реальное количество, тогда и ответ был бы другой
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 20:39 [#7]:
ну давай щас, а вообще так можно?
|
|
|
Мережников Андрей (статус: Абитуриент), 24 января 2011, 20:41 [#8]:
Можно использовать функцию FindComponent, например так:
var tl:TComponent;
....
...
в цикле:
tl:=FindComponent('label'+IntToStr(i));
(tl as TLabel).Caption:=....
Более подробный ответ можно дать только на более подробный вопрос.
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 20:51 [#9]:
кароче капец, у меня прога ваще фатал выдала
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 20:52 [#10]:
procedure TForm4.Button3Click(Sender: TObject);
Var List, RL:Integer; Component:TComponent;
begin
if ListBox1.Items.Count = 8 then
for RL:= 0 to ListBox1.Items.Count -1 do
begin
List:=Random(ListBox1.Items.Count);
Component:=FindComponent ('label'+IntToStr(RL));
(Component as TLabel).Caption:=ListBox1.Items[List];
Component:=FindComponent('ListBox'+IntToStr(RL));
(Component as TListBox).Items.Delete(List);
end
end;
|
|
DNK (статус: Студент), 24 января 2011, 21:07 [#11]:
Внимательно смотрим код. Компоненты с Label0 и ListBox0 по Label7 и ListBox7 действительно есть?
"Digital Networked Knight"
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 21:09 [#12]:
всё спасибо, там не 7 лист боксов, а 7 строк
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
