[Lazarus-es] Consulta Archivos TXT

[José Luis Vassallo]

Buenas gente, necesito una pequeña ayuda necesito abrir un archivo txt e
irlo actualizando con información que lee otro programa.

La cuestion es que quiero poder leer cada linea y si corresponde actulizarle
una información.

Ej. Archivo.txt
Compu1=OnLine
Compu2=OffLine
Compu3=Rota
Compu4=OnLine
Compu5=OnLine
Compu6=OffLine

Quiero poder recorrer el txt y cambiar el texto por ej. en la linea 3
"Compu3=Rota" a "Compu3=OnLine". Con el siguiente ejemplo yo recorro el
archivo y muestro en un memotext la información, pero quiero poder modificar
una linea en particular es posible. Porque probe con Write, append, etc.,
pero me veo en la obligación de regenerar el archivo y no quiero.


procedure TFormulario.CargarArchivoTexto;
var F: TextFile;
    sLinea: String;
begin
  AssignFile( F, ExtractFilePath( Application.ExeName ) + 'prueba.txt' );
  Reset( F );

  while not Eof( F ) do
  begin
    ReadLn( F, sLinea );
    Memo.Lines.Add( sLinea );
  end;

  CloseFile( F );
end;

Muchas gracias por su tiempo.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20090103/484ce052/attachment-0001.html>