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