[alfredosg19]

Gracias Lepe, tu consejo de antes me ha servido de mucho, el problema que tengo ahora es que al guardarse el array al archivo me sobreescribe los datos. He probado con poner un Append (pero me da error)...., llevo toda la mañana con la historia de grabar arrays en archivo que hasta ahora me iba bien, pero eso de utilizar el mismo archivo para 2 programas y cargarlos en array y tener que guardarlos del Array, uffffffffffffffffff....

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