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