Problema con Progressbar y Application.ProcessMessages

[ecfisa]

Hola kirkhelek.

Hay varias cosas para rever...

.- No entiendo para que declarás los procedimientos: p_cargar_datos1 y p_cargar_datos2.
A primera vista me parecían similares, a la segunda ví que son idénticos. Uno de los dos
es necesariamente redundante.

.- En la línea:

Código Delphi [-]
   self.Close;

¿ Quien es Self ? De la forma en que están declarados los procedimientos, no parecen tener un objeto asociado.


.- No sé que realiza f_CuantosRegistros, pero te aseguro hace disonancia con la línea en que declarás:

Código Delphi [-]
var
 fFichero: TextFile;

por que un archivo de texto no está estructurado en registros.


.- Por último, no necesitás utilizar la instrucción Application.ProcessMessages.

Así que sacando las líneas de comentarios, el ejemplo quedaría así:

Código Delphi [-]
procedure TForm1.CargarDatos(sRuta:string);
var
  fFichero: TextFile;
  sCadena: string;
begin
  with TStringList.Create do
  try
    LoadFromFile(sRuta);
    progreso.Max:= Count;
  finally
    Free;
  end;
  progreso.Position:=0;
  progreso.Min:=0;
  progreso.Step:= 10;  // Para: progreso.StepIt
  try
    AssignFile(fFichero,sRuta);
    Reset(fFichero);
  except
    Close;
    Exit;
  end;
  label1.Caption:='Cargando datos...';
  while not eof(fFichero) do
  begin
    Readln(fFichero, sCadena);
    progreso.StepIt;
  end;
  closeFile(fFichero);
  Self.close; // Self esta asociado a Form1, se cierra
end;

Ejemplo de llamada:

Código Delphi [-]
  CargarDatos('C:\PRUEBA.TXT');

Nota: TStringList lo uso para obtener el número de líneas de forma sencilla (hay mejores métodos), pero para el ejemplo sirve.

Espero haberte ayudado.

Saludos.

[kirkhelek]

Buenas, ante todo gracias por responer, puede que el código no sea del todo claro, es normal, ya que no es el original así que no le hagas mucho caso a los métodos como Self.Close y demás.

Respecto a lo de los dos procedures que uso: pCargar_datos1 y pCargar_datos2, para que quede claro funcionan igual, sólo que cada uno es para una tabla diferente, p.e: tabla clientes y tabla facturas. Y como úso cada proceso para la carga de los datos desde fichero para cada tabla...

De todas formas, y perdon si no me he explicado muy bien jejejeje, ya sé que lo que quiero ( que se vea el progreso de la barra de progreso xD ) se puede hacer sin el Application.ProcessMessages, sustituyendolo por el Repaint del Form. Lo que pasa es que veo en muchos sitios que usan Application.ProcessMessages para "refrescar" la barra de progreso, y de hecho funciona. PERO al reutilizarla, es decir, al usarla con el pCarga_datos1 y despues con el pCarga_datos2, pues peta con el error que puse en el primer mensaje, y bueno REPITO que el problema lo tengo solucionado usando el método Repaint, sólo que me picaba la curiosidad el saber por qué con Application.ProcessMessages peta y con el Repaint va a las mil maravillas jejejeje

De todas formas, gracias por haber contestado!

Un saludo.