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

Question

procedure TF_Diet.StringGrid1DblClick(Sender: TObject);
var
i,j:integer;
begin
with stringgrid1 do
begin
j:=Selection.Top;
for i:=Selection.Bottom+1 to rowcount-1 do
begin
rows[j]:=rows[i];
inc(j);
end;
for i:=j+1 to rowcount-1 do
rows[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 清空最后几行