Cambiar TimetoStr y viceversa

[gcc32]

Hola necesito que teniendo la hora actual con la funcion now; me la transforme a una variable de tipo string o integer, tengo entendido que se hace

var a:TTIME;

begin
a:=now;
label1:=TimetoStr(a);

end;

No me deja compilar, ¿alguien sabe por que? ¿Se necesita algo en uses para realizar este tipo de cambio de variable??

Muchas Gracias

[marcoszorrilla]

Now devuelve la fecha y la hora, no la hora solamente, por lo tanto tienes que declarar una variable del tipo DateTime.

Var
x:TdateTime;

Pero para seguir con lo que tu quieres más fácil sería:

Código Delphi [-]
a:=Time;
        label1:=TimetoStr(a);

Un Saludo.

[gcc32]

Me sigue saliendo el mismo error cuando ejecuto;

Código Delphi [-]
var s:string;
    hora2:Ttime;

begin
    hora2:=Time;
    s:=TimeToStr(time);   <<---- Se me situa el cursor (|Time)
end;

[Error] Principal.pas(136): Missing operator or semicolon

Me da igual como se haga, la idea es cambiar de formato hora a string o integer para poder operar con horas...

Gracias de todas maneras

[BrunoBsso]

Es que te estás olvidando de poner el dato en la propiedad Caption del label.

Código Delphi [-]
Label1.Caption:=TimeToStr(Now);

Saludos!

[marcoszorrilla]

¿Tienes declarada la variable S como String?

Un Saludo.

[marcoszorrilla]

Pues la asignación directa te tiene que funcionar acabo de probarlo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Now);
end;

Un Saludo.

[marcoszorrilla]

He probado tu código y funciona perfectamente.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
hora2:Ttime;

begin
    hora2:=Time;
    s:=TimeToStr(time); //  <<---- Se me situa el cursor (|Time)
    ShowMessage(s);
end;

Un Saludo.

[gcc32]

Efectivamente, eso funciona pero en una aplicación nueva, no se porque de todas maneras, seguiré investigando, gracias.



¿Otra pregunta, como elimino los dos puntos de la hora para poder operar como si fuera un numero? Ej: 22:47:00 -> 224700


Muchisimas gracias

[gcc32]

Ya lo he comprobado, habia puesto el caption, esta todo correcto estoy desesperado...