初学者的一些问题9&10(3分)

9.procedure TForm1.Button1Click(Sender: TObject);
var
i:integer ;
begin
form1.ProgressBar1.Min:=0 ;
form1.ProgressBar1.Max:=10000 ;
for i:=0 to 10000do
;
begin

form1.ProgressBar1.Position:=i;
end;
end;
此段代码不能运行，我将end后的分号，改为逗号，仍不能运行。请问为什么？？我都快郁闷死了，我这可是按照书上做的。(P78)



10.procedure TForm1.StringGrid1SelectCell(Sender: TObject;
ACol, ARow: Integer;
var CanSelect: Boolean);
begin
FORM1.StringGrid1.Cells[0,0]:='XUHAO';
if col mod 2 =0 then
grd.options:=grd.options + [goediting]
else
grd.options:=grd.options - [goediting]
end;

end.
这段代码，不能运行，问题出在哪里？？
还有，网格组件是用来做什么的？？(P79)

var
i:integer ;
begin
form1.ProgressBar1.Min:=0 ;
form1.ProgressBar1.Max:=10000 ;
for i:=0 to 10000do
begin
Application.ProcessMessages;
form1.ProgressBar1.Position:=i;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin

form1.ProgressBar1.Min:=0;
form1.ProgressBar1.Max:=10000;
for i:=0 to 10000do
//此处不应该有分号
begin
form1.ProgressBar1.Position:=i;
end;

end;


//程序的主要功能是selectcell中：
//1 判断当前的行、列
//2 改变options是否可以goEditing
//程序中 if stringgrid1.Col mod 2 =0 then
可以改成if stringgrid1.col = 2 then

procedure TForm1.StringGrid1SelectCell(Sender: TObject;
ACol,
ARow: Integer;
var CanSelect: Boolean);
begin

FORM1.StringGrid1.Cells[0,0]:='XUHAO';
if stringgrid1.Col mod 2 =0 then
StringGrid1.options:=StringGrid1.options + [goediting]
else
StringGrid1.options:=StringGrid1.options - [goediting];
end;

if col mod 2 =0 then
//没有col这个变量,改为Acol
grd.options:=grd.options + [goediting]
else
grd.options:=grd.options - [goediting]
end;

接受答案了.