Составить текст из нескольких Label'ов

[qwerty55]

Не могу понять как сделать....
Имеется 10 Labelов, находятся на панеле в разброс (в каждом из них строчка текста, загружаемая из файла), из них нужно построчно (сверху вниз) составить текст. Перемещение labelов по панеле я замутил, а вот как теперь, начиная с верхнего (по координатам) составить текст я не знаю...((
Помогите пожалуйста!!!

[Serge_Bliznykov]

всё зависит от конкретных деталей. (какие имена у лейблов, все ли лейблы нужны, где они лежат (на форме, на панели, на фрейме, на закладке и т.д.))

но общий подход,

либо чере FindComponent:

var
  MyComponent: TComponent;
  i : integer;
  s : string;
begin
 s := ''; 
 for i:=1 to 10 do begin
   MyComponent := Form1.FindComponent('Label'+IntToStr(i));
   if MyComponent <> nil then
      s := s + ' '+TLabel(MyComponent).Caption;
  end;

либо через перебор всех контролов на форме:

     for i:=0 to Form1.ControlCount - 1 do
      begin
        If Form1.Controls[i] is TLabel then  begin
          .....

[Аватар]

Мне больше по душе второй подход

procedure TForm1.Button1Click(Sender: TObject);
var i,j,xCount: Integer;
    xLabels: array of TLabel;
    xLabel: TLabel;
    s: String;
begin
  {Выбираеи лєйбы}
  xCount:=0;
  for i:=0 to Panel1.ControlCount-1 do
    if Panel1.Controls[i] is TLabel then begin
      Inc(xCount);
      SetLength(xLabels,xCount);
      xLabels[xCount-1]:=TLabel(Panel1.Controls[i]);
    end;
  {Сортируем по тор, при желании можно и по left добавить}
  for i:=0 to xCount-2 do
    for j:=i+1 to xCount-1 do
      if xLabels[j].Top<xLabels[i].Top then begin
        xLabel:=xLabels[i];
        xLabels[i]:=xLabels[j];
        xLabels[j]:=xLabel;
      end;
  {Формируем текст}
  s:='';
  for i:=0 to xCount-1 do s:=s+xLabels[i].Caption;
  SetLength(xLabels,0);
  Memo1.Text:=s;
end;

[qwerty55]

лейблы лежат на панеле))
спасибо за варианты, сейчас поколдую над кодом и попробую

[qwerty55]

Аватар, спасибо огромнейшее за помощь именно то что искал!!!!

[qwerty55]

извините за еще один тупой вопрос.....
лейблы берутся по всей панеле, а как сделать вычисление только тех лейблов которые лежат допустим между верхним и нижним компонентами Bevel (сделан подобие линии, толщиной в 1px)?

[Serge_Bliznykov]

только тех лейблов которые лежат допустим между верхним и нижним компонентами

ну цикл перебора (причём работающий) у Вас уже есть.
добавьте в него проверку на попадание TOP в нужный диапазон и дело в шляпе!

[qwerty55]

дак в том то и дело, что я пытался но не выходит....

With Components[L] as TLabel do
if (Top>Bevel1.Top) and (Top+Height<Bevel2.Top) then

вставляю строки и тогда программа вообще отказывается составлять текст

[Serge_Bliznykov]

выложите исходники небольшого тестового примерчка

[qwerty55]

не могу выложить... пишет "ошибка загрузки"