10 respuestas en este tema

[k_miloram]

Hola a todos  ..
yo de nuevo quizás con una pregunta tonta 
Mi consulta es la siguiente:
Como hago para
En un form Principal
según la condición

delphi

procedure TFormPrincipal.btnIniciar1Click(Sender: TObject);
begin
  if (not Timer1.enabled) then
    tiempo1 := time;
  Timer1.enabled := not Timer1.enabled;
AQUI GUARDAR LA HORA/MINUTOS/SEGUNDOS DEL SISTEMA EN UNA VARIABLE DE HORA DE ENTRADA
  if (btnIniciar1.caption = 'Parar') then
  begin
    btnIniciar1.caption := 'Iniciar';
AQUI GUARDAR LA HORA/MINUTOS/SEGUNDOS DEL SISTEMA EN OTRA VARIABLE DE HORA DE SALIDA
    end;
  else
    btnIniciar1.caption := 'Parar';
end;

eso en un Formulario donde cronometro el tiempo de presionar el boton para iniciar y luego para detenerlo

hasta allí todo bien (creo)

pero luego en otro formulario quiero
mostrar la HORA/MINUTOS/SEGUNDOS tanto como de entrada y de salida

la quiero mostrar preferentemente en un Label
pero no importa tanto eso


espero que me haya explicado 

Desde ya muchas gracias 

[Fenareth]

Amigo k_miloram no hay preguntas tontas 

En primer lugar debes declarar una varible de tipo TDateTime y mandarle la fecha y hora actual del sistema:

delphi

var
   FechaHora: TDateTime;
begin
      FechaHora := Now();  // Obtiene fecha y hora actual del sistema
end;

Espero te sea de ayuda, por aquí andamos...

Saludox !

[k_miloram]

Muchas gracias Fenareth 
y como hago para poder desde otro formulario obtener los valores de esa variable y mostrarlo en un Label?

[poliburro]

puedes declarar la variable en la sección public del formulario y desde un segundo formulario hacer

delphi

form2.label1.caption := formatdatetime('yyyy/mm/dd hh:nn:ss',form1.FechaHora);

[k_miloram]

Muchas Gracias poliburro

Les explico un poco como estoy trabajando

en el FormPrincipal lo declare asi

delphi

horaEntrada: TDateTime;
  horaSalida: TDateTime;

en el FormTotales para poder mostrar el dato de la variable lo hice asi:

delphi

    lblHoraEntrada.caption := formatdatetime('yyyy/mm/dd hh:nn:ss', Main.horaEntrada);

pero me muestra este error:

delphi

[dcc32 Error] Main.pas(221): E2034 Too many actual parameters

que puedo hacer?

Muchas gracias por su ayuda 

[poliburro]

que raro, podrías colocarte en la línea que menciona el compilador y mostrar que línea de código tienes allí?

[k_miloram]

delphi

horaEntrada := Time('hh:nn:ss', Now());

es alli donde me marca el error anterior

esa linea se encuentra en el formulario Principal

[poliburro]

prueba cambiando el tipo a horaEntrada a String y haciendo la siguiente asignación:

delphi

horaEntrada := FormatDateTime('hh:nn:ss',now());

y cuando lo pases al caption solo tendrás que hacer

delphi

form2.label1.caption := form1.horaentrada;

[k_miloram]

Muchas gracias por su ayuda Fenareth y poliburro
Caso resuelto 

PD:en cualquier momento vuelvo con una pregunta tonta de nuevo xD

[poliburro]

PD:en cualquier momento vuelvo con una pregunta tonta de nuevo xD

De esas nunca he conocido una, así que anda con confianza amigo que será un gusto enorme ayudarte....

[cadetill]

Para completar el tema, si quieres un cronometraje más apurado que el que da la función Now, te recomiendo la lectura de un artículo en mi blog que habla sobre el tema.

Nos leemos