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 ; |
|
|
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 |
|