consegir el nombre de un archivo abierto con un openpicturedialog

[ecfisa]

Empezado por aldemar.bohorqu

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:

{
  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:

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

Saludos.