Hola a todos
Estoy haciendo una aplicación que debe leer varios ficheros de texto para configurar unas tablas. Hasta aquí no hay problema
Como el ordenador tarda algo en leer los ficheros e insertar los datos, para dar una idea de como va el proceso he puesto un TQProgressBar (
que encontré en éste mismo foro)
El código:
Código Delphi
[-]
QProgressBar.Caption := 'Procesando '+UpperCase(TableName)+' ...';
QProgressBar.Position := 0;
QProgressBar.Show; <--------------+
QProgressBar.Refresh;
StringList := TStringList.Create;
try
StringList.LoadFromFile( PathDoc+'\'+TableName+'.csv' ); <-------+ Esto hace lo mismo, leer el fich.
QProgressBar.Maximum := StringList.Count; <------ Hasta aquí no se hace visible
while( StringList.Count>0 ) do begin
Inc( NumReg );
QProgressBar.Position := NumReg;
...
El problema es que no sé como hacerlo visible antes de que entre a leer el fichero (no encuentro documentación sobre el componente, y en la demo que trae no lo usa)
¿Alguien que utilice el componente puede echarme una mano?
Gracias de antemano
salvica