//無論是讀取值,還是寫入值,都要首先判斷單元格是否為空,如果為空的話,讀寫都會出問題.//讀取值
procedure TForm1.dxBarButton1Click(Sender: TObject);
var
  Cell: TdxSpreadSheetCell;
begin
  Cell := dxSpreadSheet1.ActiveSheetAsTable.Cells[0, 1];
  if Cell <> nil then
    ShowMessage(Cell.AsString)
  else
    ShowMessage('B2無內容');
end;
//  寫入值
procedure TForm1.dxBarButton2Click(Sender: TObject);
var
  newCell: TdxSpreadSheetCell;
begin
  newCell := dxSpreadSheet1.ActiveSheetAsTable.Cells[1, 1];
  if newCell = nil then
    newCell := dxSpreadSheet1.ActiveSheetAsTable.CreateCell(1, 1);
  newCell.AsString := '又是新的一天';
end;