Question

delphi7 dbgrid 给第一列单元格赋值

delphi7 dbgrid 给第一列单元格赋值 从1到n 应该如何写代码
不想用第三方控件， 数据库是paradox 用BDE连接 使用了table 没有query

Answer 1

var i:integer;
begin
table.open;
for i := 1 to n do
begin
table.insert;
table.fields[0].asinteger := i;
table.post;
end;
end;

追问

如果只是修改第一列的内容呢？

Answer 2

其实是给table的第一列赋值。
table1.append;
Table1.fieldbyname('Id').asfloat:=I;
table1.post;
循环执行上面三行语句。

追问

如果只是修改第一列的内容呢？

追答

修改第一列的内容在dbgrid中自动实现(修改后换行即可)！

Answer 3

ADO的首列自动添加序号。
ADOTable1.Edit;
DBGrid1.Fields[0].AsInteger:=DataSource1.DataSet.RecNo;