Question

треба відредагувпти код
procedure TForm1.Button1Click(Sender: TObject)
; var a: array [1..5] of integer; i: integer;
begin
for i:=1 to 5 do
a[i]:= StrTolnt(Memo1.Lines[i-1]);
Shape1.Height := a[1];
Shape1.Width := a[1]
Shape2.Height := a[2]
Shape3.Height := a[3];
Shape4.Height = a[4];
Shape5.Height := a[5];
end; Coll​

Answer 1

Відповідь:

procedure TForm1.Button1Click(Sender: TObject);

var

 a: array [1..5] of integer;

 i: integer;

begin

 for i := 1 to 5 do

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

 Shape1.Height := a[1];

 Shape1.Width := a[1];

 Shape2.Height := a[2];

 Shape3.Height := a[3];

 Shape4.Height := a[4];

 Shape5.Height := a[5];

end;

Виправив наступне:

Shape1.Width := a[1]; додав ";"

Shape4.Height := a[4];  додав ":" до =. Тепер код буде працювати коректно.