for i:=Selection.Bottom+1 to rowcount-1 do是什么意思？

Question

procedure TF_Diet.StringGrid1DblClick(Sender: TObject);vari,j:integer;beginwith stringgrid1 dobeginj:=Selection.Top;for i:=Selection.Bottom+1 to rowcount-1 dobeginrows[j]:=rows[i];inc(j);end;for i:=j+1 to rowcount-1 dorows[i].clear;rowcount:=j;end;这是一个在stringgrid中删除一行的函数。谁能根据这个函数写一个插入的函数。谢谢了。其中for i:=Selection.Bottom+1 to rowcount-1 do是什么意思？他呢for i:=j+1 to rowcount-1 do

Answer 1

procedure TF_Diet.StringGrid1DblClick(Sender: TObject); 
var 
i,j:integer; 
begin 
with stringgrid1 do 
begin 
stringgrid1.RowCount：=stringgrid1。RowCount+1; 
for i:=Selection.Bottom+1 to rowcount-2 do 
begin 
rows[i+1]:=rows[i]; 
end; 
rows[Selection.Bottom+1].Clear;//清空插入行，你对它赋值就好了
end; 

for i:=Selection.Bottom+1 to rowcount-1 do 对选择行的最后那行后面那行开始到stringgrid的最后一行遍历
for i:=j+1 to rowcount-1 do 清空最后几行