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
1 回答
互換的青春
TA貢獻1797條經驗 獲得超6個贊
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 清空最后幾行
- 1 回答
- 0 關注
- 207 瀏覽
添加回答
舉報
0/150
提交
取消