Question

delphi StringGrid 第一个单元格的内容与第二个单元格内容相减

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k : Integer;
begin
i := StrToIntDef(StringGrid1.Cells[0,0],3);
j := StrToIntDef(StringGrid1.Cells[0,1],1);
k := i-j;
ShowMessage(IntToStr(k));
end;

追问

请问如何将结果显示在第一个单元格内呢？

追答

你要把第一个单元格和第二个单元格相减的结果显示在第一个单元格？
如果直接对第一个单元格赋值：
StringGrid1.Cells[0,0] := 'ABC';

即可。
你可以把结果显示在第三个单元格啊：
i := StrToIntDef(StringGrid1.Cells[0,0],3);
j := StrToIntDef(StringGrid1.Cells[0,1],1);
k := i-j;

StringGrid1.Cells[0,3] := IntToStr(k);