Delphi - Eliminar linea de archivo de texto

Hola...

Hay alguna forma de eliminar una linea cualquiera de un archivo de texto sin tener que leer todo el archivo y volverlo a escribir? (O aunque sea solo la primera).

Gracias

No existe una forma facil de hacerlo, al menos no trabajandolo como si fuera un archivo de texto pero se me ocurre (nunca lo probé) que si lo abres como un binario y leyendo desde un retorno de carro hasta otro puedes borrar una línea y desplazar el resto para cubrir el "hueco".

Si el archivo no es excesivamente grande, una solución muy buena es almacenarlo en un StringList. Una vez ahí, puedes añadir, insertar y eliminar líneas con suma facilidad.

Donde trabajo utilizamos esa técnica con ficheros de hasta unos 10MB sin ningún problema. Con ficheros más grandes también funciona, pero piensa que estamos consumiendo memoria.

Ejemplo:

procedure EliminarLinea(pNumLinea: integer; pNomFichero: string);
var
vslFichero: TStringList;
begin

vslFichero := TStringList.Create;

try

vslFichrero.LoadFromFile(pNomFichero); //Cargamos el fichero

vslFichero.Delete(pNumLinea); //Borramos la línea

vslFichero.SaveToFile(pNomFichero); //Volvemos a escribir el fichero

finally

vslFichero.Free; //Destruimos el StringList.

end;//try... finally

end;//EliminarLinea

OJO: esto es un ejemplo, como puedes ver no estoy comprobando ningún tipo de error.

Hum... Probaré con los StringList aunque lo de los archivos binarios ya lo he estado mirando y he aprendido alguna cosa.

Muchas gracias a los dos!!!!!!!