Modificacion de un archivo de texto

[omarifr]

Saludos disculpen si no estoy en el Foro correcto, necesito una aplicacion que lea un archivo y modifica cierta linea del cuerpo del archivo. Ejem.

"Este es
el cuerpo
del archivo <--Debo modificar esta linea y cambiarla por una cadena
a modificar"

AssignFile(Fichero,'C:/X Muestra/Layout.txt');
Reset(Fichero);
while Eof(Fichero)=False Do
begin
readln(Fichero,Linea);
Estoy utilizando readln() pero solo me permite leer la cadena del archivo y no puedo modificarla y si uso el rewrite me borra todo el contenido.
¿Como puedo hacer para modificar una sola linea sin tocar el demas texto del archivo?

Agradeceria mucho si ayuda.

[roman]

Podrías usar un StringList:


var
Archivo: TStringList;

begin
Archivo := TStringList.Create;
Archivo.LoadFromFile('C:\X Muestra\Layout.txt');

{
Aquí accedes a las líneas del archivo por índice:

Archivo[0], Archivo[1], Archivo[2],...

y puedes cambiar cada una por separado
}

Archivo.SaveToFile('C:\X Muestra\Layout.txt');
Archivo.Free;
end;


// Saludos

[omarifr]

Muchisimas Gracias es gusto lo que necesitaba.

[<Sergio>]

Podrías usar un StringList:


var
Archivo: TStringList;

begin
Archivo := TStringList.Create;
Archivo.LoadFromFile('C:\X Muestra\Layout.txt');

{
Aquí accedes a las líneas del archivo por índice:

Archivo[0], Archivo[1], Archivo[2],...

y puedes cambiar cada una por separado
}

Archivo.SaveToFile('C:\X Muestra\Layout.txt');
Archivo.Free;
end;


// Saludos
Pues es una de las mejores respuestas que he visto, realmente le has simplificado las cosas. :)