Sobre el TQProgressBar
 

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.Visible  := true; <---+ hago visible la barra
    QProgressBar.Show; <--------------+
    QProgressBar.Refresh;
    StringList            := TStringList.Create;
    try
      StringList.LoadFromFile( PathDoc+'\'+TableName+'.csv' ); <-------+ Esto hace lo mismo, leer el fich.
      //FileTxtToStringList( PathDoc, TableName+'.csv', StringList ); <--+
      QProgressBar.Maximum := StringList.Count; <------ Hasta aquí no se hace visible
      while( StringList.Count>0 ) do begin
             //Application.ProcessMessages;
             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

Hola...

Dentro del ciclo while (StringList.Count > 0) do, coloca una instrucción Application.ProcessMessages, con esto debe de actualizarse bien el componente...


Saludos...

Hola maeyanes
En el código lo puse inicialmente (está desactivado ahora) pero el resultado es el mismo.

Gecias
salvica