Asignar path para guardar imágenes

[ecfisa]

Hola randenf.

Si no entendí mal,

Código Delphi [-]
function MakePath(const Cad: string; const aDate: TDate; const aName: TFileName): string;
begin
  Result := Copy(DateToStr(aDate),7,4) + '-' +
            Copy(DateToStr(aDate),4,2) + '-' +
            Copy(DateToStr(aDate),1,2); // (Invierto fecha para mantener órden en nombres de carpeta)
  Result := ExtractFilePath(Application.ExeName)+'Dicom Data\Archivos Dicom\'+
            Result + '\' + Cad + '\' + aName;
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:= MakePath(EditEstSerImg.Text, Date, 'XXX.DCM');
end;

Si por ejemplo el contenido de EditEstSerImg fuese "Imagenes" el resultado es:

C:\programa\Dicom Data\Archivos Dicom\2013-01-30\Imagenes\XXX.DCM

si fuese "Series":

C:\programa\Dicom Data\Archivos Dicom\2013-01-30\Series\XXX.DCM

, etc

Saludos.