Presentar numeros en una venta flotante

[ecfisa]

Empezado por wcbs

... el ejemplo que yo te puse, que debo modificar para que me lea la primera linea cada 1 segundo y me muestre el resultado en la ventanita, recuerda que el archivo lo genera el otro programa y constantemente le esta escribiendo...

me dirás amigo ecfisa si me supe explicar mejor,...

Hola wcbs.

Tal vez fuí yo quien no te interpretó..

En principio basta con que agregues un TTimer con un Interval de 1000 milisegundos (1 seg) y en su evento OnTimer pongas el código que lee el dato del archivo.

Podes hacerlo mediante el procedimiento ReadLn como en tu código o, a mi criterio, de forma mas simple usando TStrings:

Código Delphi [-]
...
implementation

const
   RTA_ARCH = 'C:\DBA\contar.txt';

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := False;
  with TStringList.Create do
  try
    try
      LoadFromFile(RTA_ARCH);
      StaticText1.AutoSize := False;
      StaticText1.Caption  := Strings[Count-1];
      StaticText1.BevelKind:= bkTile;
      Timer1.Interval := 1000;
      Timer1.Enabled  := True;
    except
      raise Exception.Create('Error: No se encontró el archivo ' + RTA_ARCH);
    end;
  finally
    Free;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with TStringList.Create do
  try
    LoadFromFile(RTA_ARCH);
    StaticText1.Caption:= Strings[Count-1];
  finally
    Free;
  end;
end;

Saludos.