Gestionar archivos adjuntos

[ecfisa]

Hola Delphitest.

Para añadir los nombres de archivos podes usar un TOpenDialog, por ejemplo mostrar en un TListBox los archivos seleccionados:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog1.Options:= OpenDialog1.Options + [ofAllowMultiSelect];
end;

procedure TForm1.btnAdjuntarClick(Sender: TObject);
begin
  with OpenDialog1 do
    if Execute then
      ListBox1.Items.Assign(Files);
end;
...

Logicamente el mostrado, borrado o modificación de las rutas, lo harías sobre la lista previamente cargada de la columna de una tabla y podrías mostrar estos con cualquier componente que maneje TStrings.

Te convendría almacenan las rutas a los archivos en una tabla separada de la de clientes y relacionarla a la columna ID del cliente. Esto flexibiliza la cantidad de rutas por usuario y optimiza el espacio utilizado ya que cada cliente tendrá las rutas a los archivos que haya elegido, sea ninguna o miles.

Saludos