Insertar al principio de un fichero de texto informacion

[dec]

Hola,

Echa un vistazo a esta búsqueda en los Foros: el utilizar la clase "TStrings" para trabajar con archivos de texto es un tema que se ha tratado en más de una ocasión.

[pepecharlie67]

Ok,ya casi lo tengo.El problema ahora me surge que al usar el insert,solo puedo insertar un parámetro en una linea.Es decir,no puedo insertar una fecha completa, junto con un nombre en la primera fila.¿Que funcion puedo utilizar en lugar de insert?

[delphi.com.ar]

Escribí el mensaje anterior sin llegar a ver tu respuesta!..

Empezado por pepecharlie67

Ok,ya casi lo tengo.El problema ahora me surge que al usar el insert,solo puedo insertar un parámetro en una linea.Es decir,no puedo insertar una fecha completa, junto con un nombre en la primera fila.¿Que funcion puedo utilizar en lugar de insert?

Seguramente porque estas haciendo dos inserts:

Código Delphi [-]
AStrings.Insert(0, sFecha);
AStrings.Insert(0, sNombre);

O uno de los datos contiene los caracteres de fin de línea CR/LF.

Concatena los dos valores:

Código Delphi [-]
AStrings.Insert(0, sFecha + ' ' + sNombre);

[[maeyanes]]

Hola...

Federico, existe un error en tu respuesta, y es que el método Insert del TStringList usa dos parámetros, el índice del lugar donde insertar la cadena y la cadena:

Código Delphi [-]
MiStringList.Insert(0, '10/01/2006') // Inserto la fecha en la posición 0 del TStringList

Saludos...

[pepecharlie67]

Ok,gracias por su ayuda.Finalmente lo resolvi añadiendo +(para poder añadir mas strings,con eso me valia) dentro de insert.Gracias

[delphi.com.ar]

Empezado por maeyanes

Federico, existe un error en tu respuesta...

¡Corregido!..

[delphi.com.ar]

Si no te molesta crear un archivo a partir de este para agregar un fragmento al inicio, yo haría algo como:

Código Delphi [-]
procedure CopyAppend(ASource, ADest: TFileName; Header: string);
var
  fsSource,
  fsDest: TFileStream;
begin
  fsDest := TFileStream.Create(ADest, fmCreate);
  try
    fsDest.Write(Header[1], Length(Header));

    fsSource := TFileStream.Create(ASource, fmOpenRead + fmShareDenyNone);
    try
      fsDest.CopyFrom(fsSource, 0);
    finally
      fsSource.Free;
    end;
  finally
    fsDest.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyAppend('C:\SOURCE.TXT', 'C:\DEST.TXT', DateTimeToStr(Now) + #13#10);
end;

Si lo que quieres es desplazar la información del archivo hacia atrás, y escribir en el mismo encabezado del archivo. Vas a tener que copiar el contenido a la memoria, escribirlo en la nueva posición (0+offset), y escribir lo que quieras en el encabezado.

Saludos!