![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas al guardar datos en un archivo.
![]() 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" |
#2
|
|||
|
|||
Delimitar linea.
Hola, sigo dándole vueltas al caso anterior y no encuentro la manera. Tengo muchas dudas, pero sobre todo:¿Cómo puedo hacer para indicarle hasta cuando quiero que me grabe en una línea del archivo?. Muchas gracias por vuestra ayuda.
__________________
"La perseverancia es el camino del éxito" |
#3
|
||||
|
||||
La verdad, creo que te estas complicando la vida, que más dá como se guarden los datos, siempre y cuando se guarden y recuperen bien desde el programa.
Es más, en tu caso, guardaría el TRecord al completo, en lugar de guardar linea a linea. LA VENTAJA: con una linea de código ya tienes leido todo el registro. Por otra parte, si dejas el archivo como texto, cualquiera lo puede modificar, y como no sabe como funciona el programa, puede dejar retornos de carro sobrantes / de falta, haciendo que falle tu programa. Un saludo |
#4
|
|||
|
|||
Sigue dando problemas.
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)....
![]() ![]() ![]() Código:
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;
__________________
"La perseverancia es el camino del éxito" |
#5
|
|||
|
|||
Ha!, se me olvidaba.
Muchas gracias por cualquier ayuda o aportación.
![]()
__________________
"La perseverancia es el camino del éxito" |
#6
|
||||
|
||||
Algo así ??
Saludos |
#7
|
|||
|
|||
Sigue el mismo problema.
He incluido la función Seek pero es igual, sigue sobrescribiendo el archivo. Gracias.
__________________
"La perseverancia es el camino del éxito" |
#8
|
||||
|
||||
Upps, me pasé de listo, el problema está en el Rewrite:
Cita:
|
#9
|
||||
|
||||
Por cierto, esto es un foro o un chat ?
![]() Saludos |
#10
|
||||
|
||||
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: Saludos Última edición por Lepe fecha: 26-03-2005 a las 13:56:19. |
#11
|
|||
|
|||
Perdón Lepe.
Uyyyy
![]() ![]()
__________________
"La perseverancia es el camino del éxito" |
![]() |
|
|
![]() |
|