while not Table1.Eof do
begin
for j := 0 to Table1.Fields.Count - 1 do
Cross.AddValue([i], [Table1.Fields[j].DisplayName], [Table1.Fields[j].AsString]);
//我想将显示名改成中文提示的
Table1.Next;
Inc(i);
end;
begin
for j := 0 to Table1.Fields.Count - 1 do
Cross.AddValue([i], [Table1.Fields[j].DisplayName], [Table1.Fields[j].AsString]);
//我想将显示名改成中文提示的
Table1.Next;
Inc(i);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货