FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Archivos de Texto y binario (manejar)
Saludos amigos quiero saber como le puedo hacer para usar
archivos de texto, lo que quiero hacer es una bitacora de texto. los uso de estas dos formas pero no quedan como quiero: _____________________(1)_________________________
el problema aqui es que el reset que sepa solo abrira el archivo en caso de que exista pero no lo hace, me marca un error y si se ejecuta el rewrite jala bien. _____________________(2)_________________________
//este me pone un caracter raro al inicio de cada insercon(cosa que no me importa mucho), pero no aplica el writeln, todo me lo escribe en una sola linea, he intentado asi Registro.Acc:='cualquier accion'+char(13); para que me genere un salto de linea pero nada. La otra es sobre Archivos Binarios quiero guardar claves de usuarios y pass en archivos binarios, como poder usarlos o que me recomiendan? Espero me halla dado a entender y me puedan ayudar gracias!!!! Última edición por dec fecha: 19-04-2006 a las 10:58:56. |
#2
|
||||
|
||||
Para los ficheros de texto Reset los abre solo para lectura, para poder escribir en ellos hay que utilizar Append.
Seria algo asi Código:
procedure Bitacora(); var Fichero: TextFile; begin AssignFile(Fichero, 'Prueba.txt'); if fileexists('Prueba.txt') then begin Append(Fichero); end else begin Rewrite(Fichero); end; writeLn(Fichero,'cualquier accion'); CloseFile(Fichero); end; Código:
procedure Bitacora(); begin with TStringList.Create do try try // Intentamos cargar el archivo, si no existe se genera una excepcion // que atrapamos e ignoramos LoadFromFile('d:\prueba.txt'); except end; Add('Cualquier texto'); SaveToFile('d:\prueba.txt'); finally Free; end; end; |
#3
|
|||
|
|||
excelente amigo, se agradece mucho, me ha sido de muchisima
utilidad. Mil Gracias!!! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Convertir Archivos DFM de binario a Texto (Text DFM) | DiDi | Varios | 4 | 21-04-2005 19:39:43 |
Ayuda con Archivos de Texto!! | Ariatna | Varios | 8 | 03-02-2005 00:21:04 |
Reporte en Diferentes Archivos de Texto | jovehe | Impresión | 4 | 14-10-2004 20:36:21 |
duda sobre archivos de texto | eduarcol | Varios | 4 | 05-02-2004 15:06:31 |
|