De un memo a un TDataTime

[[Caral]]

Hola
No se si sera esto lo que necesitas, pero hice un ejemplo sencillo
Saludos

[jorgegetafe]

Muchas gracias a los dos, voy a probarlo ya os cuento, pero gracias de antemano ;-)

[jorgegetafe]

Ya lo he probado, de nuevo muchas gracias a los dos por vuestro tiempo.

Como ya habreis intuido estoy haciendo un programa para que cuando la hora del usuario coincida con el sistema se apague el ordenador, o se apague la pantalla... cosas de esas...

Aplicando vuestro código, lo pongo en un timer de esta forma:

Código Delphi [-]
procedure TForm1.AccionTimer(Sender: TObject);
Var
HUser: TDateTime;
BEGIN
HUser := EncodeTime(StrToInt(hora.Text), StrToInt(minuto.Text), StrToInt(segundo.Text), 0);
IF (HUser = time) THEN
showmessage ('Es la misma hora');
END;

Resulta que aunque ponga la misma hora que el sistema, la condicion: "IF (HUser = time) THEN" nunca se me cumple :-S y claro nunca se realiza lo que yo quiero que se haga, en este caso por probar un showmessage. No me entra en la cabeza que puede estar mal, ¿sabeis vosotros que falla? Por cierto el timer esta on jeje.

[maco2007]

.............................................

[[Caral]]

Hola
Para empezar esto que significa?:

Empezado por maco2007

.............................................

Para mi falta de educación, si no se tiene nada que decir, mejor ahorrar espacio en el club.
En segundo lugar:
Esto:

Escrito por: jorgegetafe.
Como ya habreis intuido estoy haciendo un programa para que cuando la hora del usuario coincida con el sistema se apague el ordenador, o se apague la pantalla... cosas de esas...

Que yo sepa no hay en el club nadie con poderes de pitonisa, para mi se trata de ayudar y aveces se dan palos de ciego, que costaba desde un principio explicar las cosas con mas detalle?.
Después de desahogarme, aquí te envió otro ejemplo que hace lo que necesitas:
1: contiene un timer, este establece la hora y por supuesto esta cambiando continuamente.
2: se colocan, las horas edit2, los minutos edit3, los segundos edit4
3: se presiona el botón de Colocar hora y queda grabado en el edit5.
4: se espera a que esta sea la misma que la del sistema, en cuanto sea la misma, envía un mensaje y cierra el programa.
Espero ahora si te sirva y comentes mas lo que necesitas la próxima vez.
Saludos

[jorgegetafe]

Muchas gracias por el programilla y perdón por no haber dado todos los datos necesarios, pero es que pense que no era necesario.

Respecto a lo de los puntos, primero escribió este mensaje:

***************
Facil

Si quieres colocar los 3 memos en un Calendar seria asi:

var
Aate;
begin
A:= StrToDate(Memo1.text+Memo2.text+;Memo3.Text)
Calendar1.Date:= A;
***************

Y luego lo borro para dejar los puntos, no se porque.

Gracias a todos.