Fórum gravar vários registros na tabela de uma só vez... #173849

Olá amigos da ultima vez que fiz esta pergunta acho que não expliquei direito.

Estou desenvolvendo uma sistema e a certa altura preciso gerar vários números e inseri-los em uma tabela como abaixo:

with DM.tTabela do
begin
for x:=1 to 10000 do
begin
insert;
FieldByName(´Numero´).Value := x;
Post;
Refresh;
end;
end;

Assim funciona, mas o problema é que fica muito lento, será que tem uma possibilidade de melhorar isso fazendo ficar mais rápido???


desde já muito obrigado....


soda limonada