Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Desarrollo en Delphi para Android
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos


Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo Hace 4 Semanas
dani36652 dani36652 is offline
Registrado
 
Registrado: abr 2019
Posts: 4
Poder: 0
dani36652 Va por buen camino
Question 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

Última edición por Casimiro Notevi fecha: Hace 4 Semanas a las 00:56:44.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda con TListbox para sacar informacion microbiano Varios 7 26-07-2012 06:35:19
una imagen de fondo para un TListBox Cosito Varios 1 26-01-2008 14:37:28
Control para seleccionar directorios y archivos ElDuc Varios 2 03-10-2006 20:02:08
Alguien me puede facilitar el metodo SIMPLEX gapat Varios 1 07-06-2005 22:56:53
Ehm, alguien me puede facilitar éste código? gatsu PHP 3 09-07-2004 13:35:01


La franja horaria es GMT +2. Ahora son las 04:48:51.


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