6.3 Візуалізаціа елементів табличної велечини з використанням графічних примітивів

  Процедура для формування двох табличних величин з 5 елемантів : а - із чисел , b - з компонентів Фігура та зображення чисел фігурами відповідних висот :
   var a: array [1...5] of integer; b : array [1..5] of TShepe; i : integer ;
    b[1] := Shepe1 b[2] : = Shepe2 b[3]: =Shepe3;
    b[4] := Shepe1 b[5] : = Shepe5;
    for i := 1 to 5 do a[i] := StrToInt(Memo1.Lines[i-1]);
    for i := 1 to 5 dob[i].Height :=a[i] ;
  Фрагмент процедури масштабування висот фігур для зручної візуалізації великих чисел :
      max a[1]
      for i 2 to 5 do
      If a[i] > max
 Прикладом команди для фарбування фігури в червоний колір :
    b[i].Brust.Color  := clred;