Question

delphi中 stringgrid 下段代码什么意思？

if (acol=1) and (arow=1) then
rect.Bottom:=rect.Bottom+rect.Bottom-rect.Top;
if not((acol=1) and (arow=2)) then
begin
stringgrid1.Canvas.FillRect(Rect);
stringgrid1.canvas.textout(rect.left,rect.top+18,StringGrid1.cells[acol,arow]);
end;

Answer 1

这段代码的意思是在stringgrid1指定区域（rect，rect.left,rect.top+18）内输出textout和（StringGrid1.cells[acol,arow])一样的文本;
if (acol=1) and (arow=1) then//如果列是1，行是1
rect.Bottom:=rect.Bottom+rect.Bottom-rect.Top;
区域的下边，由区域的下边加上区域区域的下边坐标值减去区域的顶边坐标值决定；
if not((acol=1) and (arow=2)) then
如果不在第一列第二行单元格
stringgrid1.Canvas.FillRect(Rect);充满整个区域，全部区域
stringgrid1.canvas.textout(rect.left,rect.top+18,StringGrid1.cells[acol,arow]);
在指定区域（横坐标rect.left，纵坐标rect.top+18,）输出文本（来源于StringGrid1.cells[acol,arow]）;