ProgressBar c/ várias tabelas.

Delphi

27/08/2003

Uso progressbar com uma tabela, dou um while, abro a progressbar no inicio do arquivo e no final ela para. Até aí tudo bem. Agora como faço para ler várias tabelas, e só final de yter lido a última a progreesbar para. Assim: Digamos q eu tenha 20 tabelas no datamodule. Para cada conferencia de tabela a pb, vai andando, até q a última tabela seja lida. isto é para colocar no inicio da aplicação, qdo ela for iniciada, para interagir c/ o usuário.


Paulo

Paulo

Curtidas 0

Respostas

Netosdr

Netosdr

27/08/2003

Olá Paulo,

Vamos lá

1) A propriedade Max da progressbar deve indicar a quantidade de itens (no seu caso tabelas). Se vc tiver 20 tabelas, coloque 20.

2) Você deve declarar uma variavel x do tipo integer. Esta variável ara]mazena o ponto em que a barra deve ficar a cada tabela aberta:
ex:
tabela1.open
ProgressBar1.Position := x;
x := x + 1;
tabela2.Open;
ProgressBar1.Position := x;
x := x + 1;
....

Espero ter ajudado


GOSTEI 0
POSTAR