El párrafo que brota de un editor de texto

12/5/2018

1490

El párrafo que brota de un editor de texto

En un procesador de textos, usted puede trabajar en los párrafos y, a continuación, vierta
en otros programas como líneas individuales, envuelto por la recepción de windows. He aquí cómo escribir en un editor de texto normal.
Párrafo 'verter' desde un editor de texto
Por Gene Fowler
[email protected]
Notas:
1: Si usted está poniendo el código de mi varios artículos sobre mdi de los editores de texto en una copia de la edición de textos, hay una corrección que debe hacerse en el SaveAs1Click rutina que usted allí. La línea
OpenFiles.Insertar(Etiqueta, Pathname)
debe ser reemplazado por
OpenFiles.Insert(0, Pathname)
Esto es importante aquí, porque guardar un Nuevo Archivo se ve afectada. Las primeras pruebas será sin duda en un Nuevo Archivo. Supongo TextEdit original SaveAs1Click no presente ningún problema. He traído en mi código de la mucho más compleja eWriter.
2: La prueba de la cama para que este código es de Borland TextEdit demo que viene con Delphi. Si se compila en Delphi 5 o 5.01, será necesario la modificación de los formularios.pas que dirijo a usted en mi anterior artículo, Sistema de Programación/Next (Anterior) en MDI editores.
Se puede ignorar la advertencia sobre 5.0 x, porque usted no necesita hacer cualquier niño en la ventana de la manipulación. Una escritura de la ventana es todo lo que necesita para probar la función. He utilizado la característica en mi textwriter, eWriter, para verter este artículo en la página que estás leyendo ahora mismo. Puede utilizar el editor de texto para probar la función.
en Realidad, TextEdit ajusta las líneas en el borde de la ventana y las exportaciones de los párrafos como líneas individuales. Usted tendrá que ampliar TextEdit lo suficientemente lejos más allá de la línea que acaba de crear con su tecla Enter para evitar olvidar a Entrar por lo que la ventana de los abrigos. En eWriter, yo uso la columna 'wrap' para Entrar no se utiliza para cada línea. La idea en un editor de texto o textwriter, sin embargo, es que usted tiene la columna ajustar o utilizar la tecla Enter. La conformación del texto es el escritor de la elección. No se trata de una secuencia. Sin embargo, el escritor, entonces, puede que desee echar un texto en algunas ventanas y dejar que ellos envuelven o, como yo lo hago con Outlook Express, dejar que el programa wrap. OE envuelve cuando envía el texto.
TextEdit es un ordinarios editor de texto. Yo digo ordinario en lugar de la llanura, porque imprime caracteres de 8-bits, pero es normal en el que no un editor rtf. Está más cerca el Bloc de notas de Wordpad. Pero como usted sabe, es en el control RichEdit. Esto permite una buena cantidad de magia. Desea que visual bookmarks? Marca de bloques de texto (frases, títulos, etc.) y el color rojo. A continuación, puede desplazarse rápidamente por ellos. O, si usted está trabajando en los archivos html, el color de las etiquetas en la carga (como opción). Usted puede hacer todas estas cosas backstage en el RichEdit y los colorantes no afectan a su texto. Por otro lado, supongamos que desea imprimir su texto html con etiquetas de color. Exportación a otro archivo como rtf y de la impresión de Wordpad.
En el código de abajo, yo uso un par de secuencias de memoria para ejecutar el texto a través de y tire de cada #13#10 a excepción de, donde hay dos, por lo que las líneas en blanco que separa los párrafos quedan separados de los llenos de líneas. Editor.PlainText se establece en False en el principio y volver a True al final. Esta es la forma en la caja mágica de obras. Sin duda mi lectura y modificación de la secuencia de texto podría ser simplificado, pero esto funciona.

elemento de Menú:
Título: Extracción de n líneas en 1
Nombre: NLinestoOne1
código:
procedimiento TEditForm.NLinestoOne1Click(Sender: TObject)
la etiqueta
& nbsp & nbsp Saltar
var
& nbsp & nbsp Stream1, Stream2: TMemoryStream
& nbsp & nbsp p, q: PChar
& nbsp & nbsp c: Char
& nbsp & nbsp IsPar: integer
procedimiento SetStreams
begin
& nbsp & nbsp si el Editor.Texto <> ' then
& nbsp & nbsp & nbsp & nbsp Editor.Texto := False
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp Salida
& nbsp & nbsp Stream1 := nil
& nbsp & nbsp Stream2 := nil
prueba
& nbsp & nbsp Stream1 := TMemoryStream.Crear
& nbsp & nbsp Stream2 := TMemoryStream.Crear
& nbsp & nbsp Stream1.SetSize(longInt(Longitud(Editor.De texto)))
& nbsp & nbsp Editor.Líneas.SaveToStream(Stream1)
& nbsp & nbsp Stream2.SetSize(2 * Stream1.Tamaño)
& nbsp & nbsp p := Stream1.Memoria
& nbsp & nbsp q := Stream2.Memoria
excepto
& nbsp & nbsp si Stream1 <> nil then
& nbsp & nbsp & nbsp & nbsp Stream1.Libre
& nbsp & nbsp si Stream2 <> nil then
& nbsp & nbsp & nbsp & nbsp Stream2.Libre
fin
fin
begin
& nbsp & nbsp si messageDlg('desea que las líneas en bloques separados'
& nbsp & nbsp 'por líneas en blanco se detuvo en líneas individuales. Usted puede '
& nbsp & nbsp quiero párrafos sin saltos de línea para que pueda envolver a '
& nbsp & nbsp 'un borde de la ventana. Esto va a hacer.'#13#13
& nbsp & nbsp ' ADVERTENCIA: Este procesa el archivo completo. Si usted desea aplicar a '
& nbsp & nbsp 'esta a solo una cuadra de el archivo, moverlo a otra ventana'
& nbsp & nbsp 'y el proceso allí antes de pasar de nuevo.',
& nbsp & nbsp & nbsp & nbsp mtInformation, [mbOK, mbCancel],0)= mrCancel, a continuación, Salir
& nbsp & nbsp Si el Editor.Texto = ', a continuación, Salir
& nbsp & nbsp IsPar := 0

prueba
& nbsp & nbsp SetStreams
& nbsp & nbsp Mientras que no (p^ = #0)
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp c := p^
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(p)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si (IsPar = 4) y c = 'a'), a continuación,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IsPar := 5
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si (IsPar = 3) y (c = 'r'), a continuación,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IsPar := 4
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si (IsPar = 2) y (c = 'a'), a continuación,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IsPar := 3
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si (IsPar = 1) y (c = 'p'), a continuación,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IsPar := 2
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si c = '/' entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IsPar := 1
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp demás IsPar := 0
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si (IsPar = 5) entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si no (p^ = #13) a continuación,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp q := q - 4 // elimina /par, hojas siguiente espacio
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp dic(p^)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := c
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := '/'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := 'p'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := 'a'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := 'r'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p := p 7 // skip #13#10/par(sp)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := c
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si p^ = #0, entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ : = a #0
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp Editor.Text := '
& nbsp & nbsp Editor.Líneas.LoadFromStream(Stream2)
finalmente
& nbsp & nbsp si Stream1 <> nil then
& nbsp & nbsp & nbsp & nbsp Stream1.Libre
& nbsp & nbsp si Stream2 <> nil then
& nbsp & nbsp & nbsp & nbsp Stream2.Libre
& nbsp & nbsp Editor.Texto := True
& nbsp & nbsp Editor.Modificado := True
fin
fin

Entrelazado Bibliografía

empecé ad-libbing estos artículos en hacer algunas de las cosas que puedo hacer
& nbsp en eWriter en el Delphi demo TextEdit (de la que he construido eWriter).
& nbsp Es natural a acumular todas estas en una copia de la edición de textos. Y
& nbsp usted podría tener que ir hacia atrás y adelante para llenar de nuevo, perdidas, o
& nbsp cambió rutinas de compatibilidad. Caja notas que aparecen la mayoría de los lugares. Figura
& nbsp está en curso 'tienda' conversación...

Sistema de Programación/Next (Anterior) en MDI editores

http://www.HowToDoThings.com/showarticle.asp?article=143

Selectivo Mosaico en MDI Editores

http://www.HowToDoThings.com/showarticle.asp?article=147

Ventana de Seguimiento de los Números en MDI Editores

http://www.HowToDoThings.com/showarticle.asp?article=154

Párrafo 'verter' desde un editor de texto

http://www.HowToDoThings.com/showarticle.asp?article=178

El parrafo que brota de un editor de texto

El parrafo que brota de un editor de texto : Multi-millones de consejos para hacer su vida mas facil.

En un procesador de textos, usted puede trabajar en los parrafos y, a continuacion, vierta
en otros programas como lineas individuales, envuelto por la recepcion de windows. He aqui como escribir en un editor de texto normal.
Parrafo 'verter' desde un editor de texto
Por Gene Fowler
[email protected]
Notas:
1: Si usted esta poniendo el codigo de mi varios articulos sobre mdi de los editores de texto en una copia de la edicion de textos, hay una correccion que debe hacerse en el SaveAs1Click rutina que usted alli. La linea
OpenFiles.Insertar(Etiqueta, Pathname)
debe ser reemplazado por
OpenFiles.Insert(0, Pathname)
Esto es importante aqui, porque guardar un Nuevo Archivo se ve afectada. Las primeras pruebas sera sin duda en un Nuevo Archivo. Supongo TextEdit original SaveAs1Click no presente ningun problema. He traido en mi codigo de la mucho mas compleja eWriter.
2: La prueba de la cama para que este codigo es de Borland TextEdit demo que viene con Delphi. Si se compila en Delphi 5 o 5.01, sera necesario la modificacion de los formularios.pas que dirijo a usted en mi anterior articulo, Sistema de Programacion/Next (Anterior) en MDI editores.
Se puede ignorar la advertencia sobre 5.0 x, porque usted no necesita hacer cualquier niño en la ventana de la manipulacion. Una escritura de la ventana es todo lo que necesita para probar la funcion. He utilizado la caracteristica en mi textwriter, eWriter, para verter este articulo en la pagina que estas leyendo ahora mismo. Puede utilizar el editor de texto para probar la funcion.
en Realidad, TextEdit ajusta las lineas en el borde de la ventana y las exportaciones de los parrafos como lineas individuales. Usted tendra que ampliar TextEdit lo suficientemente lejos mas alla de la linea que acaba de crear con su tecla Enter para evitar olvidar a Entrar por lo que la ventana de los abrigos. En eWriter, yo uso la columna 'wrap' para Entrar no se utiliza para cada linea. La idea en un editor de texto o textwriter, sin embargo, es que usted tiene la columna ajustar o utilizar la tecla Enter. La conformacion del texto es el escritor de la eleccion. No se trata de una secuencia. Sin embargo, el escritor, entonces, puede que desee echar un texto en algunas ventanas y dejar que ellos envuelven o, como yo lo hago con Outlook Express, dejar que el programa wrap. OE envuelve cuando envia el texto.
TextEdit es un ordinarios editor de texto. Yo digo ordinario en lugar de la llanura, porque imprime caracteres de 8-bits, pero es normal en el que no un editor rtf. Esta mas cerca el Bloc de notas de Wordpad. Pero como usted sabe, es en el control RichEdit. Esto permite una buena cantidad de magia. Desea que visual bookmarks? Marca de bloques de texto (frases, titulos, etc.) y el color rojo. A continuacion, puede desplazarse rapidamente por ellos. O, si usted esta trabajando en los archivos html, el color de las etiquetas en la carga (como opcion). Usted puede hacer todas estas cosas backstage en el RichEdit y los colorantes no afectan a su texto. Por otro lado, supongamos que desea imprimir su texto html con etiquetas de color. Exportacion a otro archivo como rtf y de la impresion de Wordpad.
En el codigo de abajo, yo uso un par de secuencias de memoria para ejecutar el texto a traves de y tire de cada #13#10 a excepcion de, donde hay dos, por lo que las lineas en blanco que separa los parrafos quedan separados de los llenos de lineas. Editor.PlainText se establece en False en el principio y volver a True al final. Esta es la forma en la caja magica de obras. Sin duda mi lectura y modificacion de la secuencia de texto podria ser simplificado, pero esto funciona.

elemento de Menu:
Titulo: Extraccion de n lineas en 1
Nombre: NLinestoOne1
codigo:
procedimiento TEditForm.NLinestoOne1Click(Sender: TObject)
la etiqueta
& nbsp & nbsp Saltar
var
& nbsp & nbsp Stream1, Stream2: TMemoryStream
& nbsp & nbsp p, q: PChar
& nbsp & nbsp c: Char
& nbsp & nbsp IsPar: integer
procedimiento SetStreams
begin
& nbsp & nbsp si el Editor.Texto <> ' then
& nbsp & nbsp & nbsp & nbsp Editor.Texto := False
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp Salida
& nbsp & nbsp Stream1 := nil
& nbsp & nbsp Stream2 := nil
prueba
& nbsp & nbsp Stream1 := TMemoryStream.Crear
& nbsp & nbsp Stream2 := TMemoryStream.Crear
& nbsp & nbsp Stream1.SetSize(longInt(Longitud(Editor.De texto)))
& nbsp & nbsp Editor.Lineas.SaveToStream(Stream1)
& nbsp & nbsp Stream2.SetSize(2 * Stream1.Tamaño)
& nbsp & nbsp p := Stream1.Memoria
& nbsp & nbsp q := Stream2.Memoria
excepto
& nbsp & nbsp si Stream1 <> nil then
& nbsp & nbsp & nbsp & nbsp Stream1.Libre
& nbsp & nbsp si Stream2 <> nil then
& nbsp & nbsp & nbsp & nbsp Stream2.Libre
fin
fin
begin
& nbsp & nbsp si messageDlg('desea que las lineas en bloques separados'
& nbsp & nbsp 'por lineas en blanco se detuvo en lineas individuales. Usted puede '
& nbsp & nbsp quiero parrafos sin saltos de linea para que pueda envolver a '
& nbsp & nbsp 'un borde de la ventana. Esto va a hacer.'#13#13
& nbsp & nbsp ' ADVERTENCIA: Este procesa el archivo completo. Si usted desea aplicar a '
& nbsp & nbsp 'esta a solo una cuadra de el archivo, moverlo a otra ventana'
& nbsp & nbsp 'y el proceso alli antes de pasar de nuevo.',
& nbsp & nbsp & nbsp & nbsp mtInformation, [mbOK, mbCancel],0)= mrCancel, a continuacion, Salir
& nbsp & nbsp Si el Editor.Texto = ', a continuacion, Salir
& nbsp & nbsp IsPar := 0

prueba
& nbsp & nbsp SetStreams
& nbsp & nbsp Mientras que no (p^ = #0)
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp c := p^
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(p)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si (IsPar = 4) y c = 'a'), a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IsPar := 5
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si (IsPar = 3) y (c = 'r'), a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IsPar := 4
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si (IsPar = 2) y (c = 'a'), a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IsPar := 3
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si (IsPar = 1) y (c = 'p'), a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IsPar := 2
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si c = '/' entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp IsPar := 1
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp demas IsPar := 0
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si (IsPar = 5) entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si no (p^ = #13) a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp q := q - 4 // elimina /par, hojas siguiente espacio
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp dic(p^)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := c
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := '/'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := 'p'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := 'a'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := 'r'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p := p 7 // skip #13#10/par(sp)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ := c
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si p^ = #0, entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p^ : = a #0
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp Editor.Text := '
& nbsp & nbsp Editor.Lineas.LoadFromStream(Stream2)
finalmente
& nbsp & nbsp si Stream1 <> nil then
& nbsp & nbsp & nbsp & nbsp Stream1.Libre
& nbsp & nbsp si Stream2 <> nil then
& nbsp & nbsp & nbsp & nbsp Stream2.Libre
& nbsp & nbsp Editor.Texto := True
& nbsp & nbsp Editor.Modificado := True
fin
fin

Entrelazado Bibliografia

empece ad-libbing estos articulos en hacer algunas de las cosas que puedo hacer
& nbsp en eWriter en el Delphi demo TextEdit (de la que he construido eWriter).
& nbsp Es natural a acumular todas estas en una copia de la edicion de textos. Y
& nbsp usted podria tener que ir hacia atras y adelante para llenar de nuevo, perdidas, o
& nbsp cambio rutinas de compatibilidad. Caja notas que aparecen la mayoria de los lugares. Figura
& nbsp esta en curso 'tienda' conversacion...