problemas con el LoadFromFile

[roman]

Vamos a ver si no es un simple errata, pero hablas de archivos .txt:

Empezado por sac

Los Archivos son ".txt"

pero el que pones tiene extensión .text ¿No será eso?

// Saludos

[sac]

no Roman lo que pasa es que yo uso una variable que llamo busca de tipo string. Coro sería el nombre del editl junto con su propiedad text de donde extraigo la cadena de caracteres que va a buscar en los nombres de los txt.
Por eso queda:
busca:=coro.text que sería lo mismo que decir:
variable:=edit.text


memo1.lines.LoadFromFile('c:\S.P.T.M\coros\busca');
La ruta termina en el directorio donde tengo todos los .txt. Se supone que la variable justamente "busca" entre los .txt y cuando encuentra uno con el mismo nombre me trae el contenido a los lines del memo.

por las dudas te digo que la ruta y los archivos existen y tambien probe sin variable, o sea:
memo1.lines.LoadFromFile('c:\S.P.T.M\coros\coro.text');

todavia no puedo encontrar el error.

[[Delphius]]

Sac, tu error pasa por el hecho de que no estas concatenando las cadenas:

Código Delphi [-]
memo1.lines.LoadFromFile('c:\S.P.T.M\coros\'+coro.text);

No tengo delphi a mano, lo puse de memoria.. pero que por allí van los tiros
saludos,

[roman]

Cuando pones

Código Delphi [-]
memo1.lines.LoadFromFile('c:\S.P.T.M\coros\busca');

LoadFromFile busca un archivo que se llame 'busca', y no sabe nada acerca de una variable busca.

Lo mismo, cuando

Código Delphi [-]
memo1.lines.LoadFromFile('c:\S.P.T.M\coros\coro.text');

LoadFromFile no sabe nada acerca de un edit que se llame coro, y busca un archivo que- literalmente -se llame 'coro.text'.

En otras palabras, lo qe pongas entre los apóstrofes, se toma literalmente. Debes hacerlo así:

Código Delphi [-]
memo1.lines.LoadFromFile('c:\S.P.T.M\coros\' + busca);

o así:

Código Delphi [-]
memo1.lines.LoadFromFile('c:\S.P.T.M\coros\' + coro.text);

// Saludos

[roman]

¡Oh vaya! Se han adelantado. Creo que con esto ya quedará bien claro

// Saludos

[sac]

Empezado por sac

no Roman lo que pasa es que yo uso una variable que llamo busca de tipo string. Coro sería el nombre del editl junto con su propiedad text de donde extraigo la cadena de caracteres que va a buscar en los nombres de los txt.
Por eso queda:
busca:=coro.text que sería lo mismo que decir:
variable:=edit.text

Si, se confundían... acá lo explicaba bien...
denme un poco de crédito a mi tambien... yo también sueño con ayudar a otros y ser moderador de clubdelphi.. por qué no puede ser dentro de ... algunos años jeje.

[[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