Buscar archivo text, sin ruta.

[[Caral]]

Hola
Pues tenéis razón todos, de todas las formas que me habéis dicho funciona:
El problema estaba en que ponia text y no Txt, sutil diferencia.
Sirve:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
Ruta: String;
begin
  Ruta:= ExtractFileDir(Application.ExeName)+'gen.Txt';
  Memo1.Lines.LoadFromFile(Ruta);
end;

Sirve:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile( ExtractFilePath( Application.exename) + 'gen.txt');
end;

Sirve:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('gen.txt');
end;

Osea, todas las formas sirven, ahora solo me falta saber como lo hago si el archivo esta en el USB.
Gracias a todos.
Saludos

[[Caral]]

Hola a todos
Otra pregunta.
Se puede correr o hacer correr el programa si esta en el usb?
No me traje el aparato ese y no puedo hacer la prueba, no me digáis que me estoy haciendo viejo y que voy para atrás.
Saludos

[[Delphius]]

Por el tema del USB podes ir viendo esto:
http://www.clubdelphi.com/foros/showthread.php?t=51299
http://www.clubdelphi.com/foros/showthread.php?t=48744
http://www.clubdelphi.com/foros/showthread.php?t=34381

Si detecta la unidad podríamos hacer un ShellEsxcute().

Saludos,

[[Caral]]

Hola
Gracias Delphius, no se como manejáis el buscador tan bien, a mi no me sale nada de eso, por suerte os tengo a vosotros.
Saludos

[[Delphius]]

Empezado por Caral

Hola
Gracias Delphius, no se como manejáis el buscador tan bien, a mi no me sale nada de eso, por suerte os tengo a vosotros.
Saludos

Y a mi me da gusto tenerte (changos! sono medio feo), porque en cuanto tengo problemas cuanto intento ayudar en base de datos... como que me desaparezco.

A me me ha resultado relativamente fácil encontrar del tema... recordaba que yo ya lo había consultado y además el truco para buscar mejor es escribir en idioma argentino... ese no falla

Saludos,

[[egostar]]

Empezado por Caral

Hola a todos
no me digáis que me estoy haciendo viejo y que voy para atrás.

Pues que te digo amigo, no te estas haciendo viejo, ya eres un viejo

Empezado por Caral

Gracias Delphius, no se como manejáis el buscador tan bien, a mi no me sale nada de eso, por suerte os tengo a vosotros.

Pues es la virtud de la juventud, a ti ya te está correteando Alz

Salud OS

[[Caral]]

Hola
Mejor no me ayudes amigo, con amigos asi, para que ........
Ah, y no menciones a mi amigo alz, que lo trato de mantener lejos
Saludos

[jachguate]

Empezado por Caral

Hola
Pues tenéis razón todos, de todas las formas que me habéis dicho funciona:
El problema estaba en que ponia text y no Txt, sutil diferencia.
...
Osea, todas las formas sirven, ahora solo me falta saber como lo hago si el archivo esta en el USB.
Gracias a todos.
Saludos

Viendo esto... hay que tener en cuenta lo que es una ruta relativa y una ruta absoluta:

Una ruta relativa es aquella que no incluye la información completa de la ruta del archivo. El sistema (windows) determinará la ubicación del archivo en base a la "ruta actual" de la aplicación, según he explicado en mi post anterior.

Una ruta absoluta es aquella que incluye toda la información para ubicar un archivo. Es decir, incluye la letra que identifica la partición y la ruta completa dentro de esa partición para ubicarlo.

Así, de las formas enumeradas por carlos, la que usa ExtractFileDir y la que pone directamente el nombre del archivo, son rutas relativas, puesto que ExtractFileDir(Application.ExeName) devuelve la carpeta donde está el exe (quitando la letra que identifica la partición).

Esta funcionará siempre que la "ruta actual" de la aplicación esté en el mismo disco lógico que el exe. Pero si por alguna razón, la ruta actual está apuntando a otra partición, no funcionará.

Por el contrario, ExtractFilePath(Application.ExeName) devuelve la ruta completa a la carpeta donde está el exe, incluyendo la letra que identifica la partición, por lo que permite construir una ruta absoluta.

¿Me explique?

Un saludo.

[ixMike]

Yo me pensaba que la diferencia entre ExtractFileDir y ExtractFilePath era esta:

ExtractFileDir: C:\Archivos de programa\Mi programa
ExtractFilePath: C:\Archivos de programa\Mi programa\

¿Se ve la diferencia? La barrita al final.

En cuanto a Application.ExeName, hay otra alternativa, que es ParamStr(0); ya que el parámetro cero es el nombre del ejecutable (funciona incluso en los archivos bat escribiendo %0).


Salu2

[jachguate]

¡es cierto!

Bueno, hablé de memoria... y obviamente recordaba mal. xiMike, esas en lo correcto.

Hasta luego.