Wroger,
Se a tua rotina está igual a que vc mandou, então modifique para:
whith Table1 do
begin
DisableControls;
Close;
Open;
For i:=1 to 3000 do
Begin
Append;
FieldByName('v1').AsFloat := i;
FieldByName('v2').AsFloat := (i * 5);
Post;
End;
EnableControls;
end;
Acho que desta forma resolve.
Luciano
----- Original Message -----
From: Wroger
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 21, 2006 1:39 PM
Subject: [delphi-br] APPEND DEMORADO ??
Fiz um exemplo, para acessar uma tabela do Tipo .DBF na minha unidade C:\
utilizando um TTable.
Estou utilizando o Seguinte Looping para dar append neste TTable:
Table1.DisableControls;
Table1.Close;
Table1.Open;
For i:=1 to 3000 do
Begin
Table1.Edit;
Table1.Append;
Table1.FieldByName('v1').AsFloat := i
Table1.FieldByName('v2').AsFloat := (i * 5);
End;
tblCurva.Post;
Table1.EnableControls;
Na Primeira vez que rodo vai rapidinho, mas na segunda vez, percebo que o
comando "Append" começa a demorar bem mais que o normal.
O que pode estar havendo ??? Alguma dica ??
Obrigado à todos.
Roger.
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
o discador agora!
http://br.acesso.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
