Пишет предупреждение [Warning] Unit1.pas(39): Variable 'X' might not have been initialized
и вылетает когда нажимаю на кнопку
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
...................
procedure N1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
mass=array of real;
var
Form1: TForm1;
n:integer;
implementation
{$R *.dfm}
procedure TForm1.N1Click(Sender: TObject);
var
i:integer;
X:mass;
begin
n:=strtoint(edit1.Text);
For i:=1 to n do begin
X[i]:=Random(n);
F1Book1.NumberRC[i,1]:=X[i];
end
end;
end.
