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

[[seoane]]

¿Podria servirte esto?

Código Delphi [-]
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!!