escribir en la primera linea de un archivo de texto

[Gaim2205]

Buen día.
Tengo una aplicación que genera un archivo de texto con n lineas. Al inicio de este archivo siempre hay una linea en blanco.

Lo que quiero hacer es que: Al terminar de escribirse todas las lineas del archivo, regrese a esa primera linea en blanco y escriba cierta información que se recopiló durante la inserción de todas las lineas.

Espero haberme dado a entender.
Saludos.

[Caro]

Hola Gaim2205, ¿como estas llenando tu archivo de texto?, si lo haces con un StringList puedes utilizar el procedimiento Insert, paar adicionar en la primera posición.


var
slFile : TStringList;
begin
slFile := TStringList.Create;

for i:=0 to 10 do
begin
linea := 'tus datos';
slFile.Add(linea);
//hacemos los calculos
end;
slFile.Insert(0,'calculos');
slFile.SaveToFile('Archivo.txt');


Saluditos

[Gaim2205]

El archivo lo lleno con las instrucciones básicas para manejo de archivos de texto:


AssignFile(archivo, SaveDialog1.FileName);
ReWrite(archivo);
WriteLn(archivo, linea);


Alguna idea? aunque si me indican que no es tan sencillo lo que quiero hacer intentaré lo de la StringList.

Gracias.

[Caro]

El archivo lo lleno con las instrucciones básicas para manejo de archivos de texto:
Alguna idea? aunque si me indican que no es tan sencillo lo que quiero hacer intentaré lo de la StringList.


Hola de nuevo, yo creo que sería mucho mejor que utilices un StringList paar todo, porque de la forma que lo estas haciendo tendrías que abrir nuevamente el archivo adicionar lo que te falta y lo demas del archivo, pero también podrías utilizar un StringList para esa parte de volver a leer.


slFile.LoadFromFile('Archivo.txt');
slFile.Insert(0,'calculos');
slFile.SaveToFile('Archivo.txt');


Saluditos