Cita:
Empezado por rgstuamigo
Pues sencillamente puedes reemplazar los dos puntos( por vacio('') haciendo algo así:
Código Delphi [-]Label1.Caption:=StringReplace(TimeToStr(Now),':','',[rfReplaceAll]);
ahora si lo quieres como número entero podría ser así:
Código Delphi [-]entero:=StrToInt(Trim(StringReplace(TimeToStr(Now),':','',[rfReplaceAll])));
.
Aunque en éste ultimo he agregado la funcion Trim para eliminar los espacios en blanco ya sea por delante o al final, ya que tal parece se obtiene un error si no se lo hace,ya que al hacer la transformacion y reeplazo se obtiene un espacio en blanco al final. .
Espero te sea de utilidad. .
Saludos...
|
Hola ajjaja me adelantaste jaaja,
, justo iba a responder eso mismo con el Stringreplace jajjaja.
saludos y q esten toodos OK!