Archivos de texto

[yekkita]

Hola, no se mucho de archivos, me gustaria que me ayudaran para buscar un archivo de texto y seguir escribiendo datos en el si ya existe, como puedo generar un numero secuencial por cada linea que vaya agregando, les agradezco enteramente su ayuda.. bye;)

[yekkita]

Muchas gracias por tu ayuda

[Neftali [Germán.Estévez]]

Para buscar un archivo en disco, te recomiendo que le eches un vistazo al truco 82 (http://www.clubdelphi.com/trucos/index.php?id=82&scroll=0&scrollb=0) de la sección de Trucos el ClubDelphi.
Una vez que lo hayas encontrado, lo más cómodo para añadir líneas en cargarlo en un obtejo TStrings utilizando el método LoadFromFile. Si no lo has encontrado con este objeto también podrás crearlo. Para añadir nuevas líneas puedes utilizar el procedimiento Add (revisa la ayuda de Delphi). Y finalmente, para guardarlo puedes utilizar el método SaveToFile.

Lo de las líneas no me ha quedado muy claro...:confused::confused:

[seoane]

¿Podria servirte esto? :confused:


procedure Escribir(Archivo: String; Str: String);
begin
with TStringList.Create do
try
if FileExists(Archivo) then
LoadFromFile(Archivo);
// Supongo que como numero secuencial nos puede servir Count
Add(IntToStr(Count) + ' - ' + Str);
SaveToFile(Archivo);
finally
Free;
end;
end;


// Por ejemplo
Escribir('c:\1.txt',TimeToStr(Time));

[yekkita]

Muchas gracias por la ayuda en verdad me fue muy util, Gracias!!;)