Hola a todos, antes que nada reciban un cordial saludo de mi parte y me disculpo por poner aquí éste hilo de no pertenecer a tal lugar...
Estoy desarrollando una app para SO Android y hay una parte en la que deseo mostrar los archivos existentes de una carpeta con un TListbox para posteriormente cargar el archivo (de texto) en un memo con memo1. Lines.loadfromfile(''); cuando el usuario seleccione el item del listbox ya mencionado.
Para ello tengo éste código...
Código Delphi
[-]
uses System.Types, System.IOUtils, System.SysUtils;
procedure AddFiles(Listbox1: TListBox);
var
SDA: TStringDynArray;
I, II: Integer;
LBI: TListBoxItem;
begin
SDA := TDirectory.GetFiles(System.IOUtils.TPath.GetDocumentsPath + System.SysUtils.PathDelim,'*.txt');
for I := Low(SDA) to High(SDA) do
begin
II := Listbox1.Items.Add(ExtractFileName(SDA[i]));
LBI := Listbox1.ListItems[II];
LBI.ItemData.Detail := SDA[i];
end;
end;
//===================================
El código me corre perfecto y me pone en cada item el nombre del archivo que existe en esa ruta (cabe resaltar que ese código lo puse en el evento oncreate del form)
Y finalmente lo que quiero que haga y es la duda principal de esto... Es... ¿Como le hago para que cuando el usuario seleccione un item del listbox obtenga ya sea la ruta de ese archivo como un string para pegarlo en memo1. Loadfromfile.... O que obtenga el texto de ese item que es el nombre del archivo como un string para hacer lo mismo con memo1. Loadfromfile... Pero de esta manera memo1. Lines. Loadfromfile(tpath. GettempPath, 'nombre del archivo proveniente del list box seleccionado. Text') ;
Les agradezco mucho por su atención y espero haber sido claro...
Gracias