Візуалізація елементів табличної величини

Label

Edit

Image

Shape

var a: array [0..7] of integer;

var b: array [0..7] of TShape;

var b: array [0..10] of TShape;

var a: array [0..10] of integer;

Від'ємні значення відображаються червоним кольором, додатні - зеленим, нульові - жовтим.

Від'ємні значення відображаються зеленим кольором, додатні - червоним, нульові - чорним.

Від'ємні значення відображаються червоним кольором, додатні - зеленим, нульові - жовтим.

If a[i] < 0 Then b[i].Brush.Color := clred

Else If a[i] = 0 Then b[i].Brush.Color := clyellow

Else b[i].Brush.Color := clgreen;

for i := 1 to 5 do a[i] :=StrToInt(Memo1.Lines[i-1]);

for i := 1 to 5 do b[i].Height := a[i];

end

var a: array [1..5] of integer; b: array [1..5] of TShape;

...

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);

for i := 1 to 5 do

a[i] := strToInt(Memo1.Lines[i-1]);

max := a[1];

for i := 2 to 5 do

If a[i] > max

Then max := a[i];

for i := 0 to 7 do

begin

Canvas.Rectangle(l, Form1.Height, l + 20, Form1.Height-a[i]);

l := l + 25;

end;

b[0] : Shape1; b[1] : Shape2; b[2] : Shape3; b[3] : Shape4;

b[4] : Shape5; b[5] : Shape6; b[6] : Shape7; b[7] : Shape8;