Question

关于delphi7数据库写入的问题 第一列想根据数据库总行数累加 具体如下

关于delphi7数据库写写进数据库的时候 因为第一列是序号，这个序号想根据现在数据库中总行数 再进行写入

比如数据库现在有 10行，导入的数据有10行，在导入的时候 显示的是11-20行 应该如何修改下边代码？
注明：数据库没有主键的，是paradox数据库
现在能写入了，就是想在写入的时候第一列内容根据数据库总行数累

procedure TForm1.Button2Click(Sender: TObject);
var listA,listB:TStringList;
i,o,x:Integer;
begin
DBMemo2.Clear;
listA:=TStringList.Create;
listB:=TStringList.Create;
listA.LoadFromFile('d:\desktop\333.txt');
for i:=0 to listA .Count-1 do
begin
listB.Clear;
listB.Delimiter:=';';
listB.DelimitedText:=listA.Strings[i];
DataSource1.DataSet.Append;
for o:=0 to listB.Count -1 do
x:=Table1.RecordCount;
if o<>0 then
begin
DataSource1.DataSet.Fields[o].AsString:=listB.Strings[o];
DataSource1.DataSet.Post;
end
else
begin
DataSource1.DataSet.Fields[o].AsString:=IntToStr(x+1);
DataSource1.DataSet.Post;
end;
end;
listA .Free;
listB .Free;
end;

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏10（财富值+成长值）

Answer 1

Paradox或者dBASE或者FOXPRO的数据表可定义自动增量字段，可满足你的要求。

追问

我知道paradox可以定义，目的是修改数据库字段，如果想直接定义，也没必要问了 对吧