Crear lectura y escritura, archivo de texto con kylix

Crear lectura y escritura, archivo de texto con kylix

Crear lectura y escritura, archivo de texto con kylix : Multi-millones de consejos para hacer su vida mas facil.

Este Articulo es para el principiante a intermedio desarrollador que quiere leer / escribir / imprimir y borrar archivo de texto. Espero que sea util para muchos de los desarrolladores .

Crear , Leer , Escribir ,Imprimir , Borrar
los Archivos de Texto Con KYLIX

Rahul Tamrakar

Este Articulo es para el principiante a intermedio desarrollador que quiere leer / escribir / imprimir y borrar archivo de texto. Espero que sea util para muchos de los desarrolladores .
Ahora , voy a mostrar los comandos basicos para la lectura y la escritura . Es muy muy simple.
General Rutinas de e/S
AssignFileAssigns el nombre de un archivo externo en un archivo de la variable.
con el fin De empezar a trabajar con archivos de texto de KYLIX tenemos que vincular un archivo en un disco a un archivo de variable en nuestro programa. Para crear este enlace primero debemos declarar una variable de tipo archivo de Texto y, a continuacion, utilizar AssignFile procedimiento para asociar un archivo en un disco con un archivo de variable. A menos que el archivo con el nombre de nombre de archivo esta en el directorio actual, debemos proporcionar la ruta de acceso completa .
ResetOpens un archivo existente (de la lectura)
Para leer la informacion de un archivo linea por linea, debemos abrir el archivo de entrada mediante el procedimiento de Restablecimiento. El Reset se abre el archivo existente con el nombre asignado al archivo de Texto variable. Se producira un error si no existe ningun archivo externo del nombre existe.
RewriteCreates y abre un nuevo archivo (o se abre y se borra un archivo existente!)
Reescribir crea un nuevo archivo (se abre el archivo de salida) con el nombre asignado a OpenFile. Si un archivo con el mismo nombre ya existe, se elimina y un nuevo archivo vacio se crea en su lugar. Si SomeTextFile ya esta abierto, se cierra primero y, a continuacion, volver a crear. La posicion actual del archivo se establece en el principio del archivo vacio.
WriteLnWrite linea en el archivo de texto .
La WriteLn comando enviar las piezas individuales de informacion a un archivo
ReadLnRead linea del archivo de texto .
ReadLn la lectura de la informacion de linea por linea a partir de un archivo.
EofReturns la fin-de-archivo de estado. (Verdadero implica, al final del archivo)
Eof es el EndOfFile funcion de verificacion. Podemos utilizar esta funcion para asegurarse de que no estamos tratando de leer mas alla del final del archivo
OpenFile.EF
CloseFileCloses un archivo abierto.
cerrar para Cerrar el vinculo de OpenFile.
AssignPrnAssigns archivo a la Impresora

EraseErases un archivo externo.



Todas estas rutinas estan en la unidad SysUtils, excepto 'Assignprn' para esta u tiene que añadir 'QPrinters' unidad en la unidad de seccion.


¿por Que he de elegir TMEMO con ARCHIVO de TEXTO
Los siguientes ejemplos muestran como guardar y cargar un TMemo de archivo 'de la manera dificil'.
Usted podria, por supuesto, el uso de la SaveToFile y LoadFromFile metodos de TStrings, pero entonces no vas a aprender sobre el archivo de texto de e/S ! y muchos programadores en su mayoria tienen 2 problema
1How para imprimir TMEMO contenido y Guardar en ARCHIVOS de TEXTO...
2.Como JUGAR CON el ARCHIVO de TEXTO en KYLIX.

De esta manera podran aprender ......
1.Como Guardar / Recupero TMEMO contenidos en un ARCHIVO de TEXTO.
2.Como imprimir TMEMO contenido a traves del Programa.
3.como Crear / Escribir / Leer /Imprimir y Borrar ARCHIVOS de TEXTO.


1.Creacion y Redaccion de Contenidos en un Archivo de Texto

se Asegura de que OutFile siempre sera cerrado, incluso si se produce una excepcion durante la edicion del archivo.

{ SaveToFile:
& nbsp & nbsp Este procedimiento guarda el contenido de una nota a una determinada Ruta y Nombre de archivo
}
procedimiento SaveToFile(MemoName : TMemo FileName : string)
var
& nbsp & nbsp OpenFile : TextFile { El archivo de texto }
& nbsp & nbsp Contador : entero { contador del Bucle }
begin
& nbsp & nbsp AssignFile(OpenFile, FileName) { Asociado OpenFile con Ruta y nombre de Archivo }
& nbsp & nbsp Reescribir(OpenFile) { Open }
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp de Contador := 0 a MemoName.Lineas.Count - 1 do
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Writeln(OpenFile, Memoname.Las lineas de[Contador])
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp aplicacion.MessageBox('Memo Guardar en un Archivo de Texto' nombre de archivo )
& nbsp & nbsp & nbsp & nbsp excepto en E:EInOutError hacer
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp MessageDlg('Guardar abortado con el error:' IntToStr(E. ErrorCode)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp , mtError, [mbOK], 0)
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp CloseFile(OpenFile)
& nbsp & nbsp final
fin

El ejemplo anterior muestra como atrapar a un archivo de e/S de excepcion y extraer el codigo de error de la misma. Tenga en cuenta que es una buena forma para mantener el exterior de intentar-por ultimo bloque en caso de que no I/O de excepcion.

2.Leer el Contenido de un Archivo de Texto

{ ReadFromFile:
& nbsp & nbsp Este procedimiento de leer los contenidos de una determinada Ruta y Nombre de archivo
}
procedimiento ReadFromFile(MemoName : TMemo FileName : string)
var
& nbsp & nbsp OpenFile : TextFile { El archivo de texto }
& nbsp & nbsp Linea : string { La linea de lectura en }
begin
& nbsp & nbsp MemoName.Lineas.Claro { Vacio el memo }
& nbsp & nbsp AssignFile(OpenFile, FileName) { Asociado OpenFile con nombre de archivo }
& nbsp & nbsp Reset(OpenFile) { Abierta sin clobbering }
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp mientras no Eof(OpenFile) hacer
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Readln(OpenFile,de la Linea)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp MemoName.Lineas.Añadir(en Linea)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp excepto en E:EInOutError hacer
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp MessageDlg('No se Puede Leer el error:' IntToStr(E. ErrorCode)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp , mtError, [mbOK], 0)
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp CloseFile(openFile)
& nbsp & nbsp final
fin

por ultimo en este ejemplo se muestra como revertir el proceso de la lectura el texto de un archivo. Tenga en cuenta que Readln copias todo el texto hasta, pero no incluyendo el final de la linea de marcador en la cadena dada. Luego se salta al final de la linea de marcador a la linea siguiente si es que hay uno. Si no hay ninguna linea siguiente, EF se convierte en Verdadero.
3.Impresion con Archivo de Texto
Una de las ventajas de Object Pascal archivos de texto que todavia no he mencionado es que puede ser utilizado para enviar los datos directamente a los dispositivos. Este ejemplo muestra como usted puede enviar mensajes de texto directamente a la impresora.
{ PrintMemo:
& nbsp & nbsp Este procedimiento de leer contenido desde el Memo e imprimir
}
procedimiento PrintMemo(MemoName : TMemo FileName : string)
var
& nbsp & nbsp OpenFile : TextFile { El archivo de texto}
& nbsp & nbsp Contador : entero { contador del Bucle }
begin
& nbsp & nbsp AssignPrn(OpenFile) {unidad QPrinters Asignar archivo de texto para RRP }
& nbsp & nbsp Reescribir(OpenFile) { Open }
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp de Contador := 0 a MemoName.Lineas.Count - 1 do
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Writeln(OpenFile,MemoName.Las lineas de[Contador])
& nbsp & nbsp & nbsp & nbsp excepto en E:EInOutError hacer
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp MessageDlg('No se Puede Imprimir el error:' IntToStr(E. ErrorCode)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp , mtError, [mbOK], 0)
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp CloseFile(OpenFile)
& nbsp & nbsp final
fin
tenga en cuenta que en este caso estoy usando AssignPrn en lugar de AssignFile. Habiendo hecho esto, usted puede simplemente escribir a la impresora como si fuera un 'normal' archivo de texto.
4.Borrar Archivo de Texto
procedimiento EraseFile(FileName : string)
var
& nbsp & nbsp OpenFile : TextFile { El archivo de texto}
begin
& nbsp if FileExists(nombre de archivo), a continuacion,
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp AssignFile(OpenFile, FileName) { Asociado OpenFile con nombre de archivo }
& nbsp & nbsp & nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Reset(OpenFile) { Abierta sin clobbering }
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp CloseFile(openfile)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Borrar(Openfile)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp aplicacion.MessageBox(Nombre De Archivo ' ! ELIMINADO ')
& nbsp & nbsp & nbsp & nbsp excepto en E:EInOutError hacer
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp MessageDlg('No se Puede BORRAR el error:' IntToStr(E. ErrorCode)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp , mtError, [mbOK], 0)
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp final
& nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp aplicacion.MessageBox ('ERROR ! 'Nombre de archivo' ! No se Encontro')
fin

5.Como obtener la Ruta de la Aplicacion
{ FilePathName:
& nbsp & nbsp Esta Funcion devolvera ruta de la Aplicacion con nombre de archivo de texto
}
funcion FilePathName : string
var
Fpath,Fname : string
begin
{ExtractFilePath() devolvera la RUTA de la APLICACION }
Fpath:=ExtractFilePath(application.ExeName)
Fname :='MyFile.txt'
FilePathName:=Fpath Fname
fin

Feliz de Programacion

KYLIX_TEXTFILE.RTF