Cita:
Empezado por egostar
Amigo, yo hago esto sin ningun problema
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('archivo.txt');
end;
Solo que debe existir el Archivo.txt en la misma ruta del programa.
Salud OS
|
Eliseo, Carlos: De esta forma el archivo no debe estar en la misma ruta que el programa... es decir, no lo buscará allí (conceptualmente), sino que en el "directorio actual" de la sesión.
Si haces un acceso directo al programa, podrías cambiar la ruta de la línea "iniciar en" y buscaría el archivo allí. Pero también podrías cambiar el "directorio actual" del programa con una llamada a ChDir.
En cambio utilizando Application.ExeName siempre se tendrá la ruta del exe (útil a veces, otras no)
Por ejemplo:
Código Delphi
[-]
begin
Memo1.LoadFromFile('archivo.txt');
ChDir('c:\');
Memo1.LoadFromFile('archivo.txt');
Memo1.LoadFromFile(
IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'archivo.txt');
end;
Les recuerdo que en windows vista, los usuarios regularmente no tienen permisos para escribir dentro de c:\archivos de programa, por lo que la práctica de leer o guardar dentro de esta ruta está cayendo en desuso, favoreciendo las carpetas de los usuarios (Application Data o Mis Documentos, según sea el caso)
Hasta luego.