problemas con el LoadFromFile

[[Caral]]

Hola
busca es una variable que contiene la direccion, o el nombre del archivo, muy raro, intenta esto:

Código Delphi [-]
procedure TPrograma.BuscarClick(Sender: TObject);
var busca:string;
begin
busca:= 'c:\S.P.T.M\coros\coro.txt';
try
presen.lines.LoadFromFile(busca);
Except
on EFOpenError do
messageDlg('El Coro NO está cargado',mtError,mbOKCancel,0);
end;
end;

Como digo, la variable busca, contiene la direccion y el nombre del archivo, con esto solo se necesita la colocacion del nombre de la variable a buscar, supongo que presen, es el nombre del memo.
Por otro lado, si la variable solo contiene el nombre del archivo hay que concatenar (ya casi me lo creo).

Código Delphi [-]
procedure TPrograma.BuscarClick(Sender: TObject);
var busca:string;
begin
busca:=coro.txt;
try
presen.lines.LoadFromFile('c:\S.P.T.M\coros\'+busca);
Except
on EFOpenError do
messageDlg('El Coro NO está cargado',mtError,mbOKCancel,0);
end;
end;

Si te fijas el tipo de archivo es txt, no text, creo que hay diferencia.
No estoy muy seguro de la forma, no te fies mucho.
Saludos

[sac]

Mil gracias a todos!
Muchos se confundían el .txt del archivo con la propiedad text del edit.
No fue ni una cosa ni la otra... la pavada que me faltaba era la concatenación es cierto pero igual no encontraba nada asique tuve que crear una carpeta "a" con un archivo "b.txt" hasta que lo enconrtó jejej...

Con Ustedes el Procedure...

Código Delphi [-]
 
procedure TPrograma.BuscarClick(Sender: TObject);
var busca:string;
begin
busca:= coro.txt;
try
memo1.lines.LoadFromFile(busca);
Except
on EFOpenError do
messageDlg('El Coro NO está cargado',mtError,mbOKCancel,0);
end;
end;

Ahora el tema a resolver es por qué no me aparece el mensaje de error de la exepcion sino que se detiene la ejecución del programa con el EFOpenError.

Pero de nuevo mil gracias a todos.

[roman]

Empezado por sac

Muchos se confundían el .txt del archivo con la propiedad text del edit.

Estee.. ¿nos confundíamos? ¿Nosotros?

// Saludos