Foros Club Delphi - consegir el nombre de un archivo abierto con un openpicturedialog

Cita:

Empezado por aldemar.bohorqu (Mensaje 447365)

En mi caso lo hice así: "C:\\Documents and Settings\\nubia\\Escritorio\\prueba2\\datos\\AGENDA.TXT". Pero me imagino que cuando el programa lo corra en otra computadora no va a servir el enlace.

Gracias.

Hola aldemar.bohorqu.

Si, así es no va a servir. Pero como imaginas bién, la solución viene de la mano de la función ExtractFilePath.

Ejemplo:

Código:

{

  AnsiString FullFileName;



  FullFileName = ExtractFilePath(Application->ExeName) + "AGENDA.TXT";

  Memo1->Lines->LoadFromFile(FullFileName);

  ...

}

De ese modo siempre obtenes la ruta a tu ejecutable esté en la computadora y carpeta que esté.

Escribí el código de ese modo para dar más claridad, pero en la práctica el ejemplo se puede reducir a:

Código:

{

  Memo1->Lines->LoadFromFile(ExtractFilePath(Application->ExeName)+"AGENDA.TXT");

}

Saludos. :)