¿Cómo hago un contador?

[pr0sper0]

Muchas gracias, serias tan amable de demostrarme todo eso atravez de codigo, el problem es q estoy familiarizandome con este lenguaje. De paso si tienes bibliografía por la cual pueda estudiar el mismo mandamela a k l a u s m i k a e l s o n 9 4 7 @ g m a i l . c o m , voy a agradecer tu ayuda, mandame un codigo de ejemplo de como tu lo harías, Gracias.

[Casimiro Notevi]

Empezado por pr0sper0

Muchas gracias, serias tan amable de demostrarme todo eso atravez de codigo, el problem es q estoy familiarizandome con este lenguaje. De paso si tienes bibliografía por la cual pueda estudiar el mismo mandamela a klausmikaelson947 @ gmail.com , voy a agradecer tu ayuda, mandame un codigo de ejemplo de como tu lo harías, Gracias.

Por favor, sigue nuestras normas, no está permitido hacer peticiones a correos electrónicos, entonces ¿para qué están los foros?
Además, al poner tu email ahí, públicamente, te arriesgas a que los robots spammers lo capture y ya sabes lo que te espera.
Gracias y saludos.

[[duilioisola]]

A continuación te dejo un ejemplo MUY simple, pero que hace lo que necesitas.
Como verás, es un formulario llamado FMMain con tres TEdits y un TTimer.
* El TTimer (TUnSegundo) está puesto a 1000ms para que actualice el formulario cada 1 segundo.
* Los TEdits muestran los datos transformando las variables privadas TDateTime a string.
* Los datos se guardan en un archivo llamado ControlTiempo.ini que estará en el directorio Windows que corresponda según la versión de Windows instalada. Si quieres puedes ponerle una ruta fija o buscar la ruta de la aplicación.

Código Delphi [-]
unit UFMMain;

interface

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

type
  TFMMain = class(TForm)
    ETiempoContratado: TEdit;
    ETiempoConsumido: TEdit;
    ETiempoConexion: TEdit;
    TUnSegundo: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure TUnSegundoTimer(Sender: TObject);
  private
    { Private declarations }
    InicioConexion, TiempoConsumidoAlIniciarAplicacion : TDateTime;
    TiempoConexion, TiempoConsumido,TiempoContratado : TDateTime;
    procedure ActualizaDatos;
  public
    { Public declarations }
  end;

var
  FMMain: TFMMain;

implementation

{$R *.dfm}

uses IniFiles;

procedure TFMMain.ActualizaDatos;
begin
  // Calculo el tiempo de conexion
  TiempoConexion := Now - InicioConexion;
  TiempoConsumido := TiempoConsumidoAlIniciarAplicacion + TiempoConexion;

  // Actualizo el formulario
  ETiempoContratado.Text := TimeToStr(TiempoContratado);
  ETiempoConsumido.Text := TimeToStr(TiempoConsumido);
  ETiempoConexion.Text := TimeToStr(TiempoConexion);

  // Si el tiempo contratado se ha consumido cierro la aplciacion
  if (TiempoContratado < TiempoConsumido) then
     Close;
end;

procedure TFMMain.FormCreate(Sender: TObject);
var
  Ini : TIniFile;
begin
  // Hora de inicio de la conexion
  InicioConexion := Now;

  // Lee datos guardados
  Ini := TIniFile.Create('ControlTiempo.ini');
  try
     TiempoContratado := StrToTime(Ini.ReadString('Datos', 'TiempoContratado', '00:00:00'));
     TiempoConsumidoAlIniciarAplicacion := StrToTime(Ini.ReadString('Datos', 'TiempoConsumido', '00:00:00'));
  finally
     Ini.Free;
  end;

  ActualizaDatos;

  // Inicio el Timer
  TUnSegundo.Enabled := True;
end;

procedure TFMMain.TUnSegundoTimer(Sender: TObject);
var
  Ini : TIniFile;
begin
  ActualizaDatos;

  // Actualizo el tiempo consumido
  Ini := TIniFile.Create('ControlTiempo.ini');
  try
     Ini.WriteString('Datos', 'TiempoConsumido', TimeToStr(TiempoConsumido));
  finally
     Ini.Free;
  end;
end;

end.

[pr0sper0]

Muchas gracias amigo me sirvio de mucho.