请问怎么循环插入以下数据到一个数据表中? DATE R01 R02 R03 R04 R05 R06 R07 R08 1 A B C D E F G H 2 H A B C D E F G 3 G H A B C D E F 4 F G H A B C D E 5 E F G H A B C D 6 D E F G H A B C 7 C D E F G H A B 8 B C D E F G H A 9 A B C D E F G H ————如果要循环插入10万条记录,请各高手帮小弟一把!在下必不胜感谢!
procedure getindate(mrow:integer); //mrow:记录数 var m_string:array[0..7] of string; i,j:integer; begin for i:=0 to mrow-1 do begin if not table1.active then table1.open; table1.append; table1.filedbyname('date').asinteger:=i; table1.fieldbyname('ro1').asstring:=m_string[0]; ^^^^^^^^^^^^^^ table1.filedbyname('ro8').asstring:=m_string[7]; for j:=0 to 7 do begin if j<>1 then m_string[j]:=m_string[j-1] else m_string[j] :=m_string[7]; end; table1.post; end; end;