FileListinBox

[Histri]

Hola a todos.

Necesito vuestra ayuda.

Hace unos trece años yo también programaba con Delphi 4 y 5, hice alrededor de 20 o 30 programas de diversa índole sobre todo de gestión de despachos y otros, pero poco a poco fui dejando de programar y así he estado como digo unos 10 años.

Ahora resulta que uno de mis programas necesito reformarlo y añadirle algunas cosas, pero debido al tiempo transcurrido, os aseguro que no me acuerdo de nada, absolutamente de nada y he intentado empezar a leer pero me resulta muy muy difícil retomar la programación, así que acudo a vuestra ayuda.


Os cuento.

El programa se denomina Gestión y lo tengo instalado en C:\ y dentro del archivo de Gestión tengo otros archivos: Expedientes, bases de datos etc. Dentro del archivo de Expedientes tengo otro archivo con el número de expediente EJ: 222-2013 y dentro de éste archivo tengo los documentos de ese expediente.

Quedaría así c:\Gestión\Expedientes\222-2013
\223-2013 etc



Lo que quiero es que al abrir un Form donde me muestra el número de expediente en un DBText, me muestre en un FileListinBox, todos los documentos que tenga el expediente 222-2013 y que al mismo tiempo pueda editar, modificar o hacer lo que quiera con esos documentos.

Ya se que esto es una tontería pero no consigo, debido al tiempo transcurrido, solucionar el problema.

Gracias por vuestra comprensión

[ecfisa]

Hola Histri y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Lo que quiero es que al abrir un Form donde me muestra el número de expediente en un DBText, me muestre en un FileListinBox, todos los documentos que tenga el expediente 222-2013 y que al mismo tiempo pueda editar, modificar o hacer lo que quiera con esos documentos.

Según entiendo de esta parte de tu mensaje, para que te muestre los documentos podrías usar las propiedades Directory y Mask.

A modo de ejemplo:

Código Delphi [-]
...
begin
  FileListBox1.Directory := 'C:\Gestión\Expedientes\222-2013';
  FileListBox1.Mask := '*.TXT';

Por último, un ejemplo de como abrir en un TMemo el documento seleccionado en el TFileListBox mediante el click del mouse:

Código Delphi [-]
procedure TForm1.FileListBox1Click(Sender: TObject);
begin
  if FileListBox1.ItemIndex <> -1 then
    Memo1.Lines.LoadFromFile(FileListBox1.FileName);
end;

Saludos

[Histri]

Gracias ecfisa

Después de tanto tiempo, volver a programar me resulta demoledor.