Presentar numeros en una venta flotante

[ecfisa]

Hola wcbs.

puedes por favor tu de comprimir me en un archivo rar ese último ejemplo que me pusiste

Te lo voy a deber en .RAR por que uso WinZip, pero creo lo podes abir con WinRar.

El ejemplo del CounterEnter que me hiciste como yo lo puedo en ves de hacerlo con la tecla enter hacerlo por ejemplo con la tecla ¨A¨ y que el conteo se quede marcado y que cuando presione solo la tecla ¨X¨ el conteo se ponga el cero asta esperar de nuevo contar la cantidad de veces de presionar la tecla ¨A¨

Si no te entiendo mal sería:

Código Delphi [-]
implementation

var
  ContadorDeAes: Integer = 0;  // (si queres podes dejar 'ContadorDeEnter')

...

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Upcase(Key) of
    'A': begin
           Inc(ContadorDeAes);
           StaticText1.Caption:= IntToStr(ContadorDeAes);
           TS.Add(StaticText1.Caption);
         end;
    'X': ContadorDeAes:= 0;
  end;
end;
...

Saludos.

[wcbs]

Hey... amigo ecfisa como decía anteriormente usted es un genio, el contar funciona de maravillas
Uuuuffff me a dado muchiiiiiiisima ayuda....después de ver como lo hiciste con pocas lineas
veo que tengo que seguir aprendiendo, y esto vale muy bien el esfuerzo, ahora le estoy dando forma a
la ventina y la estoy poniendo transparente, y esta quedando muy bien gracias a usted...amigo...

el segundo ejemplo lo probare, al terminal esta ventanita y ya te comentare y cualquier consulta
te escribiré por acá de nuevo...


Gracias.....

[wcbs]

Hola ecfisa yo con otra consulta

el contador esta funcionado ya configure la ventanita, pero el archivo que me tiene que leer lo esta leyendo peri mira esto que se me escapaba, el archivo tiene en la primera linea los números así en este orden..
1 125 0 0 0 0 0 1.00000 0.00000 0.00000 0.0000

ahora bien el numero que me tiene que mostrar es solo el 125 , como hago para que solo me muestre esos caracteres de esa linea en particular, veras que en primer numero es el 1 que ese no debe salir luego hay un espacio y luego el 125 y hay otro espacio, solo donde esta el 125 es que necesito.

acá te agrego ya lo que tengo gracias a tu ayuda, me dirás por favor que debo agragar...?

Código Delphi [-]
  unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;  // TTimer en la pestaña 'System'
    StaticText1: TStaticText;
    Label1: TLabel; // StaticText en la pestaña 'Additional'
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation  {$R *.dfm}


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 := 100;
      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;

end.

....

[ecfisa]

Empezado por wcbs

Hola ecfisa yo con otra consulta

el contador esta funcionado ya configure la ventanita, pero el archivo que me tiene que leer lo esta leyendo peri mira esto que se me escapaba, el archivo tiene en la primera linea los números así en este orden..
1 125 0 0 0 0 0 1.00000 0.00000 0.00000 0.0000

ahora bien el numero que me tiene que mostrar es solo el 125 , como hago para que solo me muestre esos caracteres de esa linea en particular, veras que en primer numero es el 1 que ese no debe salir luego hay un espacio y luego el 125 y hay otro espacio, solo donde esta el 125 es que necesito.

Hola.

Basta con que reemplaces cada línea que dice:

Código Delphi [-]
  StaticText1.Caption  := Strings[Count-1];

Por:

Código Delphi [-]
  StaticText1.Caption:= Copy(Strings[Count-1], 3, 3);

Saludos.

[wcbs]

Ok...

lo estoy haciendo pero me sigue saliendo el primer numero ¨1¨ y el ¨125¨ e probado cambiando

StaticText1.Caption:= Copy(Strings[Count-1], 3, 3);.....los números 3, 3, por 4, 5,
para ver... sera el StaticText.AutoSize :=False; que no me deja seleccionar
esos tres caracteres... Disculpa tanto las preguntas...Amigo ecfisa...

[ecfisa]

Hola.

No creo que tenga que ver la propiedad AutoSize, excepto que el espacio sea tan pequeño que no permita mostrar tres dígitos. Creo que tal vez la cadena difiera un poco con la que pusiste de ejemplo, quizá algún espacio...

La función Copy devuelve la totalidad o una porción de la cadena cuya posición de inicio es el valor del segundo argumento y la longitud esta determinada por el tercero, por ejemplo:

Código Delphi [-]
   ShowMessage(Copy('empapelado', 1, 10));  // Muestra : empapelado
   ShowMessage(Copy('empapelado', 3,  5));  // Muestra : papel

Cuando tengas dudas sobre una función o cualquier palabra del lenguaje recurrí a la ayuda de Delphi, también te recomiendo esta página Delphi Basics, que aunque en inglés es muy completa y con ejemplos.

Saludos.

[wcbs]

Hola ecfisa

Gracias amigo ya pude solucionar con el ejemplo anterior que me pusiste, efectiva mente lee
en la posición que quiero, es decir amigo que mil gracias...usted sabe mucho de este , espero
aprender así...

un saludo de mi parte....