for j:=1 to 3 do begin form2.TLabel(FindComponent('Label'+IntToStr(i))).Caption := a[i,j]; end; |
for j:=1 to 3 do begin form2.TLabel(FindComponent('Label'+IntToStr(i))).Caption := a[i,j]; end; Source: https://ru.stackoverflow.com/questions/591525/
All Articles