Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
adriano_servitec Colaborador

Registrado: Sexta-Feira, 30 de Janeiro de 2004 Mensagens: 17618
|
|
Voltar ao Topo |
|
 |
johnny-walker Moderador


Registrado: Sábado, 4 de Outubro de 2003 Mensagens: 10653 Localização: Contagem/MG - BRAZIL
|
Enviada: Ter Ago 20, 2019 12:39 pm Assunto: |
|
|
Código: | if not bCSV then
begin
DM.FDQueryAccess.First;
while not DM.FDQueryAccess.Eof do
begin
// processamento aqui....
DM.FDQueryAccess.Next;
end;
end
else
begin
for lCounter := 0 to Pred(Gauge.MaxValue) do
begin
// processamento aqui....
end;
end; |
bye _________________ P.O.W.E.R B.Y D.E.L.P.H.I |
|
Voltar ao Topo |
|
 |
adriano_servitec Colaborador

Registrado: Sexta-Feira, 30 de Janeiro de 2004 Mensagens: 17618
|
|
Voltar ao Topo |
|
 |
johnny-walker Moderador


Registrado: Sábado, 4 de Outubro de 2003 Mensagens: 10653 Localização: Contagem/MG - BRAZIL
|
Enviada: Qui Ago 22, 2019 7:15 am Assunto: |
|
|
Disponha e boa sorte amigo.
bye _________________ P.O.W.E.R B.Y D.E.L.P.H.I |
|
Voltar ao Topo |
|
 |
|