Establecer rutas relativas a archivos

[tica]

Hola,

En un componente hago referencia a un archivo especificando una ruta absoluta por ejemplo D:\My_jobs\sis\fuente\archivo.txt.

El problema que tengo es, cuando cambio o guardo mi programa en otro lugar (por ejemplo c:\sis ), la referencia del componente se pierde y tengo que volver a actualizar esa direccion.

Probe especificando esta direccion: '..\fuente\archivo.txt' (pensando que iba a funcionar como en Php) pero no acepta este tipo de direcciones.

Mi pregunta es... ¿Como puedo establecer una ruta relativa?

Gracias de antemano

[delphi.com.ar]

Si pones una ruta tan estática como "D:\My_jobs\sis\fuente\archivo.txt." siempre se buscarán en ese sitio los archivos, podrías hacer rutas algo más dinámica averiguando la ruta de la aplicación, por ejemplo:

Código Delphi [-]
  ALogFile := ChangeFileExt(ParamStr(0), '.log')

[jachguate]

Empezado por tica

Probe especificando esta direccion: '..\fuente\archivo.txt' (pensando que iba a funcionar como en Php) pero no acepta este tipo de direcciones.

Esta ruta es perfectamente válida, pero no es relativa a la ruta donde se halla el ejecutable, sino a la "ruta actual" de la aplicación, que inicialmente es la especificada en el cuadro "iniciar en" de cualquier acceso directo a tu programa.

Hasta luego.

[Paoti]

Hola Tica.....


prueba hacer esto

var
ruta : string;
begin
ruta := ExtractFileDir(Application.ExeName) + '\' + 'archivo.txt';
eti.Caption := 'Se Creará el Archivo en... ' + Ruta;
end;

la funcion extractfiledir te devuelve la ruta donde esta tu aplicacion.... no importe donde este instalada....


espero te sirva

[xomen]

Empezado por Paoti

Hola Tica.....


prueba hacer esto

var
ruta : string;
begin
ruta := ExtractFileDir(Application.ExeName) + '\' + 'archivo.txt';
eti.Caption := 'Se Creará el Archivo en... ' + Ruta;
end;

la funcion extractfiledir te devuelve la ruta donde esta tu aplicacion.... no importe donde este instalada....


espero te sirva

Gracias me sirvió de mucho...