Problemas al guardar datos en un archivo.

[[Lepe]]

Algo así ??

Código Delphi [-]
procedure TPagesDlg.guardadades;
 Var F: file of TUsuari;
   I:Integer;
   s:String;
 begin
   AssignFile(F,'c:\Usuari.txt');
   Rewrite(F);
   Seek(F, FileSize(F);
   For I:=Low(Usuari) to High(Usuari) do
   Write(F,Usuari[i]);
   CloseFile(F);
 end;

Saludos

[alfredosg19]

He incluido la función Seek pero es igual, sigue sobrescribiendo el archivo. Gracias.

[alfredosg19]

Uyyyy, pues resulta que según yo me sobreescribía los datos porque a la hora de guardarlo lo guardaba bien en 'C:\usuari.txt' y esto está protegido con la función if fileExist(), pero a la hora de leer los datos del archivo los leía de 'usuari.txt' y claro no leía nada y grababa los datos en la primera fila del archivo por lo que todo estaba bien(excepto la dirección del archivo que debía ser 'C:\usuari.txt'), ha sido un despiste que me ha hecho perder 3 horas. Lo del Seek sí que funciona, muchas gracias por tu ayuda, y disculpa si te he hecho perder tu tiempo por un despiste mío, en mi favor puedo decir que trabajo simultáneamente con dos programas en código fuente y que ambos superan las 2.000 lineas seguramente para gente experiementada esto no es nada, pero para mí es el primer proyecto de este tipo que hago y estoy pecando de novato. Lo que me parece tan increible es que errores tan tontos y tan evidentes sean los más tiempo nos hacen perder (para encontrar el error que tenía he tenido que ir con el Step). ¡¡¡¡Gracias Lepe!!!!.

[[Lepe]]

Upps, me pasé de listo, el problema está en el Rewrite:

Empezado por Ayuda de delphi

If an external file with the same name already exists, it is deleted and a new empty file is created in its place.

If F is already open, it is first closed and then re-created. The current file position is set to the beginning of the empty file.

Useasé, quita el rewrite

[[Lepe]]

Por cierto, esto es un foro o un chat ?

Saludos

[[Lepe]]

Me queda una duda, que en la ayuda no lo dice, despues de usar AssignFile, el descriptor del archivo donde queda?, al principio, en medio, al final ???
Lo mejor es asegurarse:

Código Delphi [-]
procedure TPagesDlg.guardadades;
 Var F: file of TUsuari;
   I:Integer;
   s:String;
 begin
   AssignFile(F,'c:\Usuari.txt');

  fileMode := fmOpenReadWrite;
   Reset(F); 
   Seek(F, FileSize(F);
   For I:=Low(Usuari) to High(Usuari) do
   Write(F,Usuari[i]);
   CloseFile(F);
 end;

Saludos