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;這是一個(gè)在stringgrid中刪除一行的函數(shù)。誰(shuí)能根據(jù)這個(gè)函數(shù)寫一個(gè)插入的函數(shù)。謝謝了。其中for i:=Selection.Bottom+1 to rowcount-1 do是什么意思？他呢for i:=j+1 to rowcount-1 do
1 回答
互換的青春
TA貢獻(xiàn)1797條經(jīng)驗(yàn) 獲得超6個(gè)贊
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;//清空插入行，你對(duì)它賦值就好了
end;
for i:=Selection.Bottom+1 to rowcount-1 do 對(duì)選擇行的最后那行后面那行開始到stringgrid的最后一行遍歷
for i:=j+1 to rowcount-1 do 清空最后幾行
- 1 回答
- 0 關(guān)注
- 221 瀏覽
添加回答
舉報(bào)
0/150
提交
取消