Как вывести нумерацию на панельки?

@aleks1173 · Регистрация: 18.05.2016

Author24 — интернет-сервис помощи студентам

Delphi

for i:=25 to 55 do
begin
  for k:=1 to 31 do
begin
  Pan:=FindComponent('Panel'+IntToStr(i));
  (Pan as TPanel).Caption:=IntToStr(k);
end;
end;

как построить условие проверки.
а то получается во всех панельках 31.

надо с 1 по 31.

значение циклов - константа.

@qwertehok · 18.05.2016, 12:59

Delphi

var Pan:Tpanel;
 
 
for k:=1 to 31 do
begin
  Pan:=FindComponent('Panel'+IntToStr(k+24));
  Pan.Caption:=IntToStr(k);
end;

@BOGG ART · 18.05.2016, 14:04

Небольшая поправка: FindComponent вернёт не TPanel, а TComponent. А может же и не найти!

Delphi

Var k: Integer; C: TComponent; P: TPanel;
Begin
For k:=1 To 31 Do
      Begin
      C:=FindComponent('Panel'+IntToStr(k+24));
      If Assigned(C) Then
            Begin
            P:=TPanel(C);
            P.Caption:=IntToStr(k);
            End;
      End;
End;

	18.05.2016, 14:04

Опции темы