Добавление переменной в место номера lable!

[JasperCRT]

Здравствуйте) Как добавить переменную вместо порядкового номера Label?

////получаю переменную например 
I:=3;
////теперь нужно чтобы значение этой переменной вставлялось вот сюда:
label i.visible:=true;
//// но не так не так:
label[i].visible:=true;
У меня ничего не получается!

Пожалуйста подскажите как это можно реализовать) Мне нужно чтобы при запуске программы в зависимости от полученного числа появлялся определённый лейбл)

[Vervolf]

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=3;
case i of
1: label1.Visible:=true;
2: label2.Visible:=true;
3: label3.Visible:=true;
4: label4.Visible:=true;
end;
end;

[Serge_Bliznykov]

ну, можно и другой подход использовать.
искать компонент с нужным именем через FindComponent

например, так:

var
  MyComponent: TComponent;
begin
...
  ////получаю переменную например 
  I:=3;
...

   MyComponent := Form1.FindComponent('Label'+IntToStr(I));
   if MyComponent <> nil then
       TLabel(MyComponent).Visible := true;

p.s. Внимание. Метод FindComponent вызывайте у того объекта, на котором лежат (ну или, точнее, которому принадлежат ваши лейблы - в моём примере это Form1. подставьте Ваш объект-владелец лейблов.

[JasperCRT]

Serge_Bliznykov Спасибо вам огромное)) Прям спасли))
Vervolf Через case слишком много кода писать) У меня будет очень много label'ов) Приходится делать через них потому что другого известного мне метода обработки текста таким образом как мне нужно нету, а заморачиваться не охота работа разовая)

[Vervolf]

Сообщение от JasperCRT

Serge_Bliznykov Спасибо вам огромное)) Прям спасли))
Vervolf Через case слишком много кода писать) У меня будет очень много label'ов) Приходится делать через них потому что другого известного мне метода обработки текста таким образом как мне нужно нету, а заморачиваться не охота работа разовая)

а ты одному компоненту Label просто присваивай значения в зависимости от значения переменной I. а чтобы создать много label'ов нужно динамический массив создать вот так.

var
  Form1: TForm1;
  Lab: array[1..100]of Tlabel;
  C: integer;
implementation
Uses Math;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
for c:=1 to 100 do
 begin
 lab[c]:=Tlabel.Create(Form1); //Создаем
 Lab[c].Caption:=IntToStr(c);
 Lab[c].Font.Size:=20;
 Lab[c].Transparent:=True;
 Lab[c].Left:=RandomRange(0,ClientWidth-lab[c].Width);
 Lab[c].Top:=RandomRange(0,ClientHeight-Lab[c].Height);
 Lab[c].Parent:=Form1; //помещаем на форму
 end;
end;

end.

в данном куске кода создается 100 Label'ов. и размещается рандомно по форме.

[JasperCRT]

Да так сделать можно но мне нужно чтобы в Label были стихи)) А их Нужно по строкам расспределять чтобы как стих выглядело) Так что легче сразу несколько labtl'ов и заранее текст выравнять аккуратно)) А не придумывать всякой фигни) И главное чтобы код короткий был)

[JasperCRT]

Кстати Vervolf спасибо за последний пример надо запомнитть мож пригодится где)

[Vervolf]

Сообщение от JasperCRT

Да так сделать можно но мне нужно чтобы в Label были стихи)) А их Нужно по строкам расспределять чтобы как стих выглядело) Так что легче сразу несколько labtl'ов и заранее текст выравнять аккуратно)) А не придумывать всякой фигни) И главное чтобы код короткий был)

вот так надо:

Label1.Caption:='Это первая строчка'+#13+'Это вторая строчка!'+#13+'Это третья строчка!';

или лучше в компонент TMemo забей.
Memo1.Lines.LoadFromFile('имя файла.txt');

[xrob]

JasperCRT, а можно мне ваше тз?
чисто на интерес попробовать, чего вы там делаете?

[JasperCRT]

Vervolf Спасибо) я уже сделал через label) У него можно фон прозрачным делать, а мне это нужно) Всё будет на картинке)
xrob I am sorry!!!) Не могу) Это секретная информация!XD