[[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