Localizar Archivo y Registro

[alcides]

Hola a todos,
Lo que quiero es: localizar un archivo y luego en este verificar su contenido, osea leer lo que contiene.

si esto es posible, por fa darme una manito.


Alcides
Rep. Dom.

[FDB]

Hola!

Veamos.. que no entiendo bien...

El archivo que localizas y quieres verificar su contenido.. a que tipo de archivo te refieres, ¿que quieres leer?,¿que quieres hacer con lo leido?, pon algun ejemplo o algo....

Explicate un poco mejor, para que yo y mas de uno que está como yo te podamos ayudar en la medida de nuestros conocimientos....

Saludos!

[alcides]

el archivo que quiero localizar es un archivo de texto y quiero leer su contenido, es para usarlo como medio de proteccion de un sistema.

Gracias



Alcides
Rep. Dom.

[S.M.S.]

Si el archivo a leer lo tienes escondido en el directorio de Windows, puedes obtener su ruta con el truco 141 de la página de Trucomanía.

Una vez obtenida la ruta del directorio, comprueba si el archivo existe con la función FileExist (creo recordar que este era el nombre de la función).

De existir puedes leer el archivo línea a línea de la siguiente manera:

Código Delphi [-]
Procedure TForm1.Button1Click(Sender: TObject);
var 
F: TextFile;
S: string;
begin
AssignFile(F, Ruta + '\fichero.txt');
//Ruta será una variable tipo string donde habremos guardado el directorio de windows
Reset(F); 
while not SeekEof(f) do // Mientras no llemos al final del fichero... 
begin
Readln(F, S); // Leer las líneas del fichero
label1.caption := S; //adapta esto a tus necesidades
end; 

CloseFile(F); 
end;

Saludos

[alcides]

Gracias S.M.S. por tu ayuda


Gracias mil

Alcides
Rep. Dom.

[[Lepe]]

Siendo de texto, tambien puedes abrirlo así:

Código Delphi [-]
var Archivo:TStringList;
begin
 Archivo:= TStringList.Create;
 try 
    Archivo.LoadFromFile('ruta completa del archivo');
  /// en archivo.Count te dice cuantas lineas tiene
  /// en Archivo[i] te daría la linea i+1 del archivo 
  (considera que la primera linea sería Archivo[0]
 finally
    Archivo.Free; // liberamos de memoria el archivo.
 end;

Un saludo