Question

请delphi编程高手指点!多谢！！！！

请问下面程序哪里有错误，错在什么地方，为什么不让执行呢？

procedure TForm1.FormCreate(Sender: TObject);
var
i,j:integer;
begin
with stringgrid1 do
for i:=1 to colcount-1 do
cells[i,0]:='第'+intostr(i)+'列';

with stringgrid1 do
for j:=1 to rowcount-1 do
cells[0,j]:='第'+intostr(j)+'行';
end;
系统中提示到cells[i,0]:='第'+intostr(i)+'列'; 这一句就不让向下执行了！

Answer 1

cells[i,0]:='第'+intostr(i)+'列';
cells[0,j]:='第'+intostr(j)+'行';

你的问题在于2个intostr
正确的写法是IntToStr，也就是说少了一个t，而且本身你的程序也可以写成这样：
procedure TForm1.FormCreate(Sender: TObject);
var
i,j:integer;
begin
with stringgrid1 do
begin
for i:=1 to colcount-1 do
cells[i,0]:='第'+inttostr(i)+'列';

for j:=1 to rowcount-1 do
cells[0,j]:='第'+inttostr(j)+'行';
end;
end;