¿Opendialog como Procesar archivos por lote?
 

Tengo una duda.

al usar el componente Opendialog.
se puede elegir un solo archivo y pasar la ruta
de ese archivo a una variable String.

¿como se pueden seleccionar multiples archivos?
lo que quiero es pasar las rutas a un stringlist
usando el opendialog para seleecionar todos los archivos.


Gracias.

Creo que para ese propósito iría mejor un TfileListBox.

Yo lo uso así:

Código Delphi [-]
Procedure Haz_Copia(cPuesto:String;cDestino:String);
var
n:Integer;
cFichero:String;
pOrigen,pDestino:Pchar;
begin

Pon_Rayas();

  For n:=0 to frCopiaSeg.flbficheros.Items.count - 1 do
  begin
  cFichero:=PChar(frCopiaSeg.flbFicheros.Items[n]);
  pOrigen:=PChar(cOrigen+cFichero);
  pDestino:=Pchar(cDestino+cFichero);
  frCopiaSeg.mVisor.Lines.Add('Añadiendo '+pDestino);

  Application.ProcessMessages;
    try
    nFicheros:=nFicheros + 1;
    nFichero:=nFichero + 1;
    CopyFile(pOrigen,pDestino,False);
    Except
    frCopiaSeg.mVisor.Lines.Add('NO SE PUDO REALIZAR LA COPIA EN:'+cPuesto);
    end;
   frCopiaSeg.pnMsge.Caption:='Copiando fichero Núm. '+FormatFloat(',0',nFicheros)+' :'+cFichero+' a '+cDestino;
  end;

Pon_Rayas();
frCopiaSeg.mVisor.Lines.Add('Se copiaron '+FormatFloat(',0',nFichero)+' Ficheros .');
Pon_Rayas();
end;

Un Saludo.

Activa la opción ofAllowMultiSelect del cuadro de diálogo. Los archivos seleccionados los tendrás en la propiedad Files, que es de tipo TStrings.

// Saludos