(Resolvido) Mostrar andamento via Gauge

[Eder]

Ola,

Uma vez nosso colega Jonas me ensinou a trabalhar com o gauge copiando dados de arquivos TXT neste link

Mas agora eu tenho que copiar alguns campos de uma tabela paradox para outra tabela paradox e não estou conseguindo mostrar o resultado no gauge.

O codigo para copiar que estou usando é este:

procedure TForm1.XiButton11Click(Sender: TObject);

begin

Table1.Open;

Table2.Open;

{Copiar dados}

while not table1.Eof do

begin

Table2.Last;

Table2.Append;

Table2.Edit;

Table2.FieldByName('SIGLA_CTRC').Value := Table1.FieldByName('SIGLA_CTRC').Value;

Table2.FieldByName('NUMERO_CTRC').Value := Table1.FieldByName('NUMERO_CTRC').Value;

Table2.FieldByName('SITUACAO_CTRC').Value := Table1.FieldByName('SITUACAO_CTRC').Value;

Table2.FieldByName('DATA_EMISSAO').Value := Table1.FieldByName('DATA_EMISSAO').Value;

Table2.FieldByName('FIL_DEST').Value := Table1.FieldByName('FIL_DEST').Value;

Table2.FieldByName('KG_REAL').Value := Table1.FieldByName('KG_REAL').Value;

Table2.FieldByName('KG_CALCULO').Value := Table1.FieldByName('KG_CALCULO').Value;

Table2.FieldByName('VALOR_N_FISCAL').Value := Table1.FieldByName('VALOR_N_FISCAL').Value;

Table2.FieldByName('FRETE_VALOR').Value := Table1.FieldByName('FRETE_VALOR').Value;

Table2.FieldByName('ALIQUOTA').Value := Table1.FieldByName('ALIQUOTA').Value;

Table2.FieldByName('VLR_ICMS').Value := Table1.FieldByName('VLR_ICMS').Value;

Table2.FieldByName('DESPACHO').Value := Table1.FieldByName('DESPACHO').Value;

Table2.FieldByName('PEDAGIO').Value := Table1.FieldByName('PEDAGIO').Value;

Table2.FieldByName('OUTROS_IMPOSTOS').Value := Table1.FieldByName('OUTROS_IMPOSTOS').Value;

Table2.FieldByName('VALOR_FRETE').Value := Table1.FieldByName('VALOR_FRETE').Value;

Table2.FieldByName('NOME_VENDEDOR').Value := Table1.FieldByName('NOME_VENDEDOR').Value;

Table2.FieldByName('CONTADOR').Value := Table1.FieldByName('CONTADOR').Value;

Table2.FieldByName('ULT_OCORR_CODIGO').Value := Table1.FieldByName('ULT_OCORR_CODIGO').Value;

Table2.Post;

Table1.next;

end;

Showmessage('Dados Copiados');

end;

alguém poderia me ajudar?

Obrigado

Eder

[Jhonas]

tenho que copiar alguns campos de uma tabela paradox para outra tabela paradox e não estou conseguindo mostrar o resultado no gauge

Faça essa modificação no código:

procedure TForm1.XiButton11Click(Sender: TObject);
var cont : integer;
begin

cont := 0; 

Table1.Open;
Table2.Open;
{Copiar dados}

gauge1.Progress:=0;
Gauge1.MaxValue := Table1.RecordCount;

while not table1.Eof do
begin

inc(cont);
gauge1.Progress:=cont;

Table2.Last;
Table2.Append;
Table2.Edit;
Table2.FieldByName('SIGLA_CTRC').Value := Table1.FieldByName('SIGLA_CTRC').Value;
Table2.FieldByName('NUMERO_CTRC').Value := Table1.FieldByName('NUMERO_CTRC').Value;
Table2.FieldByName('SITUACAO_CTRC').Value := Table1.FieldByName('SITUACAO_CTRC').Value;
Table2.FieldByName('DATA_EMISSAO').Value := Table1.FieldByName('DATA_EMISSAO').Value;
Table2.FieldByName('FIL_DEST').Value := Table1.FieldByName('FIL_DEST').Value;
Table2.FieldByName('KG_REAL').Value := Table1.FieldByName('KG_REAL').Value;
Table2.FieldByName('KG_CALCULO').Value := Table1.FieldByName('KG_CALCULO').Value;
Table2.FieldByName('VALOR_N_FISCAL').Value := Table1.FieldByName('VALOR_N_FISCAL').Value;
Table2.FieldByName('FRETE_VALOR').Value := Table1.FieldByName('FRETE_VALOR').Value;
Table2.FieldByName('ALIQUOTA').Value := Table1.FieldByName('ALIQUOTA').Value;
Table2.FieldByName('VLR_ICMS').Value := Table1.FieldByName('VLR_ICMS').Value;
Table2.FieldByName('DESPACHO').Value := Table1.FieldByName('DESPACHO').Value;
Table2.FieldByName('PEDAGIO').Value := Table1.FieldByName('PEDAGIO').Value;
Table2.FieldByName('OUTROS_IMPOSTOS').Value := Table1.FieldByName('OUTROS_IMPOSTOS').Value;
Table2.FieldByName('VALOR_FRETE').Value := Table1.FieldByName('VALOR_FRETE').Value;
Table2.FieldByName('NOME_VENDEDOR').Value := Table1.FieldByName('NOME_VENDEDOR').Value;
Table2.FieldByName('CONTADOR').Value := Table1.FieldByName('CONTADOR').Value;
Table2.FieldByName('ULT_OCORR_CODIGO').Value := Table1.FieldByName('ULT_OCORR_CODIGO').Value;
Table2.Post;
Table1.next;
end;
Showmessage('Dados Copiados');

gauge1.Progress:=0;

end;

abraço

[Eder]

valeu, Jonas.

Muito Obrigado.

Abraços :)