FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Guardar Datos en TXT
Bueno , soy bien nuevo en esto de delphi y la verdad me e basado en manuales y cosas para hacer "algo" ... mi problema es que quiero insertar datos en un archivo txt sin que sobreescriba lo ya escrito :
procedure Insertar_Datos(); Var txt : TextFile; sexo : string; begin sexo := IntToStr(frmMain.ComboBox19.ItemIndex); if not FileExists(AppPath + 'datos.txt') then begin AssignFile(txt, AppPath + 'datos.txt'); Rewrite(txt); Writeln(txt, ''+frmMain.Edit5.Text+','+frmMain.Edit7.Text+','+sexo+','+frmMain.Edit8.Text+',0,,,,,,,,,'); CloseFile(txt); end else begin AssignFile(txt, AppPath + 'datos.txt'); rewrite(txt); Write(txt, ''+frmMain.Edit5.Text+','+frmMain.Edit7.Text+','+sexo+','+frmMain.Edit8.Text+',0,,,,,,,,,'); CloseFile(txt); end; end; esto es lo que yo tengo , lo que me puse a pensar q podria ser es el rewrite pero el problema que si yo saco esa linea el programa se recarga y no escribe la linea. eso daria lugar a algo asi : nombre,pass,sexo,mail,0,,,,,,,,, cuando se ejecuta ese codigo inserta la linea y si no existe crea el archivo , pero el problema que cuando vuelves a insertar otro registro sobreescribe el ya escrito Si me pueden sacar la duda les agradeceria mucho Saludos |
#2
|
||||
|
||||
si pulsas F1 sobre el comando "Rewrite" en Delphi, obtendrás una valiosa ayuda. Y si después pulsas "See also" descubrirás lo que buscas.
|
#3
|
|||
|
|||
Hola
En primer lugar veo que repetis codigo, no se para que pero eso no es lo que queres, creo que podrias cargar lo que tenes en el txt a un memo sumarle la fila que queres agregar y eso cargarlo en el txt.
Dejame ver una solucion mejor y te la paso. Saludos. |
#4
|
|||
|
|||
Cita:
nombre,pass,sexo,mail,0,,,,,,,,, nombre2,pass,sexo,mail,0,,,,,,,,, nombre3,pass,sexo,mail,0,,,,,,,,, Gracias y Saludos |
#5
|
||||
|
||||
Cita:
NOTA: Si tienes problemas con el tamaño del ficheros (en W9x la limitación de TMemo es de 64K) puedes utilizar un RichEdit con formato plano.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#6
|
|||
|
|||
hola
Lo que te queria explicar en un principio era lo que dijo neftati.
|
|
|
|