简单的说就是循环执行begin...end中的代码100次。但是具体的讲就要根据代码的不同而不同了,因为不同的代码功能不同最简单的列子: for i:=1 too 100 do j:=j+i; 就是执行j:=j+i 100次,而且每次加数都是当前循环的次数
procedure TForm1.Button1Click(Sender: TObject); var i:integer; sum:integer; begin sum:=0; for i:=1 to 100 do begin sum:=sum+i; end; showmessage('整数1到100之和 sum='+inttostr(sum)); end;这是写在Button1的Click事件下的一个从1加到100的简单例子。 如果for的循环只有一句可以不用加begin..end 如果是2句以上就需要。
pascal的for和c的实现方式差太多了
procedure TForm1.FormCreate(Sender: TObject); var k,s:integer; begin with stringgrid1 do for k:=1 to colcount-1 do cells[k,0] :='第'+inttostr(k)+'列'; with stringgrid1 do for s:=1 to rowcount-1 do cells[0,s] :='第'+inttostr(s)+'列' ; end;end.这是一个制作表格的。看不懂他的代码 K:=1到行-1。他这是什么意思
这个是通过循环对stringgrid的各个单元格就行操作的for k:=1 to colcount-1 do//从第二列到最后一列 cells[k,0] :='第'+inttostr(k)+'列'; 给stringgrid第1行中所有单元格写数据for s:=1 to rowcount-1 do//从第二行到最后一行 cells[0,s] :='第'+inttostr(s)+'列' ; 给stringgrid第1列中所有单元格写数据
这段代码就相当于给stringgrid添加固定行和列标题
colcount-1 行数-1是什么意思 他这个没具体数字,行数怎么-1
欢迎新学员! colcount是一个变量名,用于存放可以变化的数字。如存放100 在下面代码中它colcount-1是循环终值 for k:=1 to colcount-1 do//从第二列到最后一列 当 colcount := 100时 就相当于 for k:=1 to 99 do==================================== 这样的问题你还是多看看书!
就一个递增和递减
具体的用法要在具体例子里面体现
for i:=1 too 100 do
j:=j+i;
就是执行j:=j+i 100次,而且每次加数都是当前循环的次数
var
i:integer;
sum:integer;
begin
sum:=0;
for i:=1 to 100 do
begin
sum:=sum+i;
end;
showmessage('整数1到100之和 sum='+inttostr(sum));
end;这是写在Button1的Click事件下的一个从1加到100的简单例子。
如果for的循环只有一句可以不用加begin..end
如果是2句以上就需要。
var
k,s:integer;
begin
with stringgrid1 do
for k:=1 to colcount-1 do
cells[k,0] :='第'+inttostr(k)+'列';
with stringgrid1 do
for s:=1 to rowcount-1 do
cells[0,s] :='第'+inttostr(s)+'列' ;
end;end.这是一个制作表格的。看不懂他的代码 K:=1到行-1。他这是什么意思
cells[k,0] :='第'+inttostr(k)+'列';
给stringgrid第1行中所有单元格写数据for s:=1 to rowcount-1 do//从第二行到最后一行
cells[0,s] :='第'+inttostr(s)+'列' ;
给stringgrid第1列中所有单元格写数据
colcount是一个变量名,用于存放可以变化的数字。如存放100
在下面代码中它colcount-1是循环终值
for k:=1 to colcount-1 do//从第二列到最后一列 当 colcount := 100时
就相当于
for k:=1 to 99 do====================================
这样的问题你还是多看看书!