Ver Mensaje Individual
  #1  
Antiguo 26-03-2005
alfredosg19 alfredosg19 is offline
Miembro
 
Registrado: ene 2005
Ubicación: Barcelona
Posts: 91
Reputación: 20
alfredosg19 Va por buen camino
Problemas al guardar datos en un archivo.

Hola de nuevo, el motivo de mi consulta es que tengo un array del que guardo los datos en un archivo por medio de un procedimiento, pero no los guarda como yo quiero, especifico, cuando me guarda los datos me los guarda en el archivo con un cuadrado transparente separando cada valor del array  y ni siquiera sé que código ASCII tiene. Mi intención es que me separe los valores del Array por otro carácter (me da igual cual) o que no me los separe. Por otra parte quisiera que cuando acaba de grabar todos los valores de un Array (Array[1].Nombre, Array[1].Apellidos...) cuando acabe y antes de pasar al siguiente (Array[2].Nombre, Array[2].Apellidos...) me ponga un retorno de carro al final.
Código:
 procedure TPagesDlg.guardadades;
 Var F: file of TUsuari;
 	I:Integer;
 begin
   AssignFile(F,'Usuari.txt');
   Rewrite(F);
   For I:=Low(Usuari) to High(Usuari) do
 	Write(F,Usuari[i]);
   CloseFile(F);
 end;
__________________
"La perseverancia es el camino del éxito"
Responder Con Cita