Buscar archivo text, sin ruta.

[[Caral]]

Hola a todos
Tengo una pregunta, seguramente sencilla, pero no se como se hace.
Lo que quiero es buscar y ver un archivo text pero sin buscarlo con una ruta, osea que lo encuentre en el mismo sitio donde esta el programa.
También me gustaría que lo encontrara en un USB, osea en una de esas cosas que se usan para portar información y también sin necesidad de darle la ruta, se podrá?.
Saludos

[[eduarcol]]

para saber la ruta donde esta el programa puedes utilizar:

ExtractFileDir(Application.ExeName);

si sabes como se llama el archivo se lo agregas y ya tienes la ruta completa, para buscarlo en unidades extraibles si no se, lo que habria es que buscar una lista de las unidades disponibles y realizar una busqueda recursiva entre los directorios...

es eso o entendi mal?

[[Caral]]

Hola
Pues no me sale, no se como se hace lo que dices.
Un ejemplo:

Código Delphi [-]
ExtractFileDir(Application.ExeName);
Memo1.Lines.LoadFromFile('gen.text');

Por supuesto no camina, donde pongo el codigo?.
Saludos

[[ArdiIIa]]

Y así lo encuentra ?

Código Delphi [-]
Memo1.Lines.LoadFromFile( ExtractFilePath( Application.exename) + '/gen.text');

[[Delphius]]

Hola Carlos,

Debería usarse así:

Código Delphi [-]
TuVariable := ExtractFileDir(Application.ExeName) + 'NombreArchivo.txt';

Por el tema de buscar en discos extraíbles, hay material en los foros, ya me fijo bien... no tengo delphi a mano.

Saludos,

[[Caral]]

Hola
Gracias a todos.
Por ahora no me funciona, he hecho esto:
No va:

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

Tambien esto:
No va:

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

Gracias por ayudarme.
Saludos

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

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