Hola a tod@s
bien hoy me ocupa intentar entregar el contenido de un TFileListBox a un ListBox, estoy lo hago puesto que el TFileListBox es ReadOnly y no me permito organizar los archivos de forma diferente a la alfabética para el caso estoy utilizando código que encontré en la red de esta forma
primera función
Código Delphi
[-]
function FileDateString( const filename: String ): String;
begin
result :=
FormatDateTime('yyyymmdd hhmmss|',
FileDateToDateTime( FileAge( filename )))
end;
en orden de ideas me va ayudar a obtener los datos de la fecha y hora del archivo
segunda función ahí esta mi gran problema
Código Delphi
[-]
procedure getListadoArchivo (pListDirectory : TDirectoryListBox; pListBox : TListBox);
var _listadoArchivos : TFileListBox;
_listadoOrdenadoArchivos : TStringList;
_i_local : Integer;
begin
try
_listadoOrdenadoArchivos:= nil;
_listadoArchivos:= nil;
_listadoArchivos:= TFileListBox.Create(TComponent(pListDirectory.Parent));
_listadoArchivos.Visible:= False;
_listadoArchivos.Directory:= pListDirectory.Directory;
for _i_local:= 0 to _listadoArchivos.Count -1 do
begin
_listadoOrdenadoArchivos.add(
FileDateString(pListDirectory.Directory + '\' + _listadoArchivos.items[_i_local]));
_listadoOrdenadoArchivos.Sorted:= True;
end;
pListBox.Items.Assign(_listadoOrdenadoArchivos);
finally
_listadoOrdenadoArchivos.Free;
_listadoArchivos.Free;
end;
end;
bien en orden de ideas deseo recibir un TDirectoryListBox y devolver en forma ordenada por fecha los archivos contenidos en el directorio, pero cuando se ejecuta esta línea de código _listadoArchivos.Directory:= pListDirectory.Directory;, se caen las cosas y me envía el siguiente mensaje Control has no parent windows.
la verdad no tengo ni idea que puede ser el error pues en el creador se esta invocando la ventana donde ejecuto el procedimiento _listadoArchivos:= TFileListBox.Create(TComponent(pListDirectory.Parent)); y el evento donde lo estoy invocando es el change del TDirectoryListBox.
Agradezco de antemano la colaboración
gertorresm
colombia