procedure TForm1.Button1Click(Sender: TObject);
var
x: array [1..3] of dword;
n:integer;
begin
x[1] := clRed; x[2]:=clYellow; x[3]:=clBlue;
n:=1;
if (n < 3) then begin
inc
;
Form1.Color:= x[n];
end
else Form1.Color:=x[1];
end;
end.
Программа заключается в том, что по нажатию кнопки цвет формы должен меняться. Но он не меняется, потому что по нажатию кнопки параметру n всегда присваивается только число 1. Что здесь поменять???
var
x: array [1..3] of dword;
n:integer;
begin
x[1] := clRed; x[2]:=clYellow; x[3]:=clBlue;
n:=1;
if (n < 3) then begin
inc
;Form1.Color:= x[n];
end
else Form1.Color:=x[1];
end;
end.
Программа заключается в том, что по нажатию кнопки цвет формы должен меняться. Но он не меняется, потому что по нажатию кнопки параметру n всегда присваивается только число 1. Что здесь поменять???