UC知道关于delphi中stringgrid的一个函数
来源：百度知道 编辑：UC知道 时间：2024/06/05 16:32:13
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
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
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 清空最后几行