FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Funcion FindFirst Ayuda en Atributo Fecha
Junto con saludar a los amigos del Foro, la ayuda que necesito es de la función *FindFirst*: Esta devuelve al ejecutarla: Nombre de Archivo/Tamaño/Fecha. Necesito resolver el dato de Fecha, ya que devuelve en formato entero (ej: PRUEBA.TXT/150243/1143452647), y lo que se necesita es: (PRUEBA.TXT/150243/28-01-2014 10:30). Esta conversión quizás tiene alguna fórmula que no he encontrado en el google y en el Foro, si alguen se ha topado con esto.
Gracias. Saludos. El ejemplo de esta Función: function TfrmActUMC.ListaArchivos(dirPadre:string): TStringList ; var sr: TSearchRec; sXX: string ; nXX: Integer ; lB : Boolean ; begin sXX := ''; nXX := 1 ; lB := False; Result := TStringList.Create; if FindFirst(dirPadre + '*', faAnyFile, sr) = 0 then repeat sXX:= LeftStr(Trim(sr.Name),1) ; lB := ( sXX[nXX] in ['1'..'9'] ); if (sr.Attr and faDirectory = 0) or (sr.Name <> '.') and (sr.Name <> '..') and ( lB ) then begin Result.Add(sr.Name+' /'+IntToStr(sr.Time) ); dxMDfWMTS.Append; dxMDfWMTSsarchivo.AsString:= Trim(sr.Name) ; dxMDfWMTSnsize.AsInteger := sr.Size ; dxMDfWMTSstfecha.AsString := Trim(IntToStr(sr.Time)) ; dxMDfWMTS.Post ; end ; until FindNext(sr) <> 0; FindClose(sr); end ; |
#2
|
||||
|
||||
Hola chopin_fev.
Por favor, cuando incluyas código Delphi en tus mensajes usa TAG's En primer término te aconsejo usar un procedimiento en lugar de la función para evitar las fugas de memoria ya que nunca liberas la instancia de TStringList que creas en ella. Entonces podrías hacer:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
Funcion FindFirst Ayuda en Atributo Fecha
Gracias ecfisa, funcionó perfecto.
Saludos Cordiales. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda con atributo System | malwkaf | Varios | 8 | 18-12-2011 16:40:08 |
Funcion Ultima fecha | guille85 | SQL | 15 | 07-11-2007 16:51:23 |
Ayuda, Como calcular fecha de vencimiento mensual a partir de una fecha x en delphi | Renis | Impresión | 4 | 23-08-2007 23:45:14 |
Imprimir en funcion de una fecha | anubis | Impresión | 8 | 08-08-2007 17:07:07 |
Función de fecha actual en SQL | mutant09 | SQL | 1 | 18-05-2004 09:51:22 |
|