Візуалізація елементів табличної величини з використанням графічних примітивів
Процедура для формування двох табличних величин з 5 елементів: a - із цілих чисел, b - з компонентів Фігура та зображення чисел фігурами відповідних висот: var a: array [1..5] of integer; b: array [1..5] of TShape; i: integer; begin b[1] := Shape1; b[2] := Shape2; b[3] : =Shape3; b[4] := Shape; b[5] := Shape5; for i := 1 to 5 do a[i] := StrToInt(Memo1.Lines[i-1]); for i := 1 to 5 do b[i].Heigh:=a[i]; end; Фрагмент процедури масштабування висот фігур для зручної візуалізації великих чисел: max := a[1]; for i := 2 to 5 do If a[i] > max Then max := a[i]; for i := 1 to 5 do b[i].Height := round(a[i]*100/max); Приклад команди для фарбування фігури в червоний колір: b[i].Brush.Color := clred; Фрагмент процедури для візуалізації чисел з використанням властивостей Ca...
Коментарі
Дописати коментар