Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   RichEdit, salto de linea (https://www.clubdelphi.com/foros/showthread.php?t=33622)

chrids506 12-07-2006 16:10:01

RichEdit, salto de linea
 
Saludos Comunidad, quería saber si alguien me podría ayudar con el caracter de salto de linea en un RichEdit, me explico:

Tengo una aplicación que va a "entender" un código, en realidad lo que va a hacer es leer caracter por caracter buscando las palabras reservadas el resto es texto (mas o menos), ahora esto lo logro fácil cuando es una sola linea, pero cuando son más pasa por unos caracteres "#$D" y "#$A" para representar el "salto de linea", mi pregunta en concreto es como "dec¡rle" a un if que cuando sea esa representación pase a una linea nueva?

Gracias de antemano,
y disculpen por mi planteamiento tan pobre, en mi mente se ve fácil, en "papel" se ve complicado.

Saludos.

atani123 12-07-2006 16:21:32

Prueba con lo siguiente


Function Substituye( cAnt, cNew : Char; sText : String) : String
Begin
// a currarsela con Copy y Pos.
End;


Var
sLinea : String;

sLinea := RichEdit1.Text;
sLinea := Substituye( #13, ' ', sLinea);
sLinea := Substituye( #10, '', sLinea);

chrids506 12-07-2006 16:53:37

Gracias por tu respuesta, entonces, puedo decir que "#13" y "#10" son los saltos de linea?

entonces por que no me sirve esto?

palabra : la sección del texto que actualmente se está analizando
PalCount : el tamaño de caracteres de palabra

Código Delphi [-]
if (palabra[PalCount] = '#13') and (palabra[PalCount + 1] = '#10') then
{si el caracter actual es igual a #13 y el caracter siguiente a #10}
           begin
               PalCount := 0
               {la palabra empieza de 0 otra vez, osea vamos a la palabra siguiente}

algo estoy haciendo mal, pero aún no se que, alguna idea?

ah, y que es currarsela?

chrids506 12-07-2006 17:42:41

Por fin entendí
 
Gracias por la respuesta, ya entendí lo que me decias, era algo así:
Código Delphi [-]
   RichEdit2.Text :=  StringReplace(RichEdit1.Text, saltolinea,'',[rfreplaceall]);
El RichEdit2 va a tener el texto sin saltos de linea.

Gracias por todo,
Saludos Comunidad,
Chrids


La franja horaria es GMT +2. Ahora son las 05:09:44.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi