delphi xe stringgrid 示例

以下是 Delphi XE 中使用 TStringGrid 的示例：

1. 创建一个新的 VCL 窗体应用程序。
2. 在窗体上放置一个 TStringGrid 控件。
3. 在窗体的 OnCreate 事件中，添加以下代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 设置 TStringGrid 的列数和行数
  StringGrid1.ColCount := 3;
  StringGrid1.RowCount := 4;

  // 设置列标题
  StringGrid1.Cells[0, 0] := 'Name';
  StringGrid1.Cells[1, 0] := 'Age';
  StringGrid1.Cells[2, 0] := 'Gender';

  // 填充单元格数据
  StringGrid1.Cells[0, 1] := 'Tom';
  StringGrid1.Cells[1, 1] := '25';
  StringGrid1.Cells[2, 1] := 'Male';

  StringGrid1.Cells[0, 2] := 'Mary';
  StringGrid1.Cells[1, 2] := '32';
  StringGrid1.Cells[2, 2] := 'Female';

  StringGrid1.Cells[0, 3] := 'John';
  StringGrid1.Cells[1, 3] := '40';
  StringGrid1.Cells[2, 3] := 'Male';
end;

4. 运行程序，可以看到 TStringGrid 控件已经显示了预设的数据。

以上代码演示了如何在 TStringGrid 中添加列和行，以及如何填充单元格数据。通过 TStringGrid 的属性和方法，可以对它进行更多的自定义设置，例如调整列宽、行高、单元格字体和背景色等。