INCLUIR VÁRIOS REGISTRO DE UMA SÓ VEZ... LOOP
Gostaria de saber se altem pode me ajudar a fazer um loop que cadastre 100 registros em uma tabela apenas para fazer um teste... para ver o camportamento da tabela.
explicando:
Tenho uma tabela i quero fazer um loop que cadastre vários registros nessa tabela apenas clicando sobre um tbutton?
ficarei grato para quem ajudar...
O poder de decisão é uma virtude!
explicando:
Tenho uma tabela i quero fazer um loop que cadastre vários registros nessa tabela apenas clicando sobre um tbutton?
ficarei grato para quem ajudar...
O poder de decisão é uma virtude!
Paulo Ricardo
Curtidas 0
Respostas
Ivonei
09/08/2003
Acho que poderia ser mais ou menos assim:
Var
I:Integer;
begin
I:=100;
while I>=0 do
begin
Dec(I)
Table1.append;
Table1CampoNome:=´Nome´;
Table1.post;
end;
end;
Veja se funciona. :)
Var
I:Integer;
begin
I:=100;
while I>=0 do
begin
Dec(I)
Table1.append;
Table1CampoNome:=´Nome´;
Table1.post;
end;
end;
Veja se funciona. :)
GOSTEI 0