Ver Mensaje Individual
  #1  
Antiguo 27-11-2007
JarLem JarLem is offline
Miembro
 
Registrado: sep 2007
Posts: 15
Reputación: 0
JarLem Va por buen camino
Poner fecha y hora en FileName de un SaveDialog

Hola compañeros del foro !!

Estoy con un pequeño problema desde hace rato y preocupado porque ya he perdido mucho tiempo en esto.

Lo que quiero hacer es que al momento de abrir un SaveDialog me ponga en la propiedad FileName una cadena que yo envio junto con la fecha y la hora actual del sistema, esto con el fin de crear copias de seguridad de mi base de datos utilizando los componentes de Interbase Admin de Delphi 7.

He logrado que muestre la fecha actual utilizando Format y FormatDateTime, pero cuando digo que muestre la hora, ejecuto y no hace nada, le quito la funcion para obtener la hora y ya me muestra la fecha.

Tengo lo siguiente:

Código Delphi [-]
var
  cad : String;
begin
 cad := Format('Nombre_BD_%s',[FormatDateTime('dd-mm-yyyy',Date)]);
 SaveDialog1.FileName := cad;
 If SaveDialog1.Execute Then
  Begin
  ...
  end:

Esto muestra la fecha correctamente cuando ejecuto el SaveDialog.

¿Como pondrían ustedes la hora?

Agradezco mucho la atención y colaboración que me puedan brindar.
Responder Con Cita