Pasar nombre de archivo en pdf a un archivo txt

[mRoman]

Hola q tal Camilo.

Puedes hacer esto:

Código Delphi [-]
procedure TfrmCargaSaldos.btnCarpetaClick(Sender: TObject);
begin
    FileListBox1.Clear;
    edCarpeta.Text:='';
    Dir:='\';
    if SelectDirectory('Seleccione la carpeta donde se localizan los archivos de Deposito',Dir,Carpeta) then
    begin
         FileListBox1.Directory:=Carpeta;
         edCarpeta.Text:=Carpeta;
    end;
end;

En un formulario coloque un TFileListBox el cual se llena con lo que contenga "carpeta", los nombre de los archivos serán colocados 1 a 1 según tengas en el directorio que se haya seleccionado.

Lo que YO haría después de esto:

Hacer un bucle para ir comparando (If-then-else) carácter x carácter en ir guardándolos hasta q se encuentre el primer CARACTER NUMERICO, en cada comparación podrías sustituir el carácter "_" por "," y almacenar esa cadena en un TMemo o un arreglo que luego de ahí lo podría grabar en archivo de texto...talvez haya otra forma mas elegante de hacerlo con menos componentes.

Espero te sirva.

Saludos.