Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Desarrollo en Delphi para Android (https://www.clubdelphi.com/foros/forumdisplay.php?f=57)
-   -   Control TListbox para facilitar la selección de archivos (https://www.clubdelphi.com/foros/showthread.php?t=94004)

dani36652 16-06-2019 21:56:21

Control TListbox para facilitar la selección de archivos
 
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


La franja horaria es GMT +2. Ahora son las 21:39:48.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi