Sobre el TQProgressBar

[salvica]

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

[[maeyanes]]

Hola...

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


Saludos...

[salvica]

Hola maeyanes

Empezado por maeyanes

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

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

Gecias
salvica