RichEdit para comentar las ventajas de un ‘producto’

[jusaso]

Gracias por la respuesta...

Estoy de acuerdo...
Primero el load para cargar el texto que contiene la descripción de todos los productos.
Un texto que préviamente ha sido escrito en Word para que quede 'bonito'.
Cada descripción del producto quedá separada por una línea en la que aparece el número que tiene asignado cada producto.
De esta manera para buscar el producto 1234...

Código Delphi [-]
nIni:=0;nFin:=0;    //numero lineas ini y fin
for i:=1 to totalLin do
   begin
   if ansipos('1234',textoArray[i])>0 then nini:=i;
   if ansipos('1235',textoArray[i])>0 then begin nFin:=i;break;end;
   end;

Continuamos...
Localizado el texto, se selecciona con...

SelStart:= Pos(Producto, RichEdit1.Text)-1;
SelLength:= Length(Producto);

Donde... selStart sería el inicio del texto pero ¿no falta indicar el final para calcular la longitud?

Y finalmente, una vez seleccionado, habría que borrar el richEdit (richEdit1.clear) y mostrar solo la parte del texto correspondiente.

Gracias anticipadas...

[*Caro*]

Hola jusaso, como te dice ecfisa en su codigo de ejemplo solo esta seleccionando el producto por lo que el final es el Length del producto.

No deberías borrar el RichEdit sino trabajar sobre el contenido del mismo RichEdit, yo seleccionaría las líneas que estan antes y despues del texto que se quiere mostrar y eliminarlas.

Código Delphi [-]
procedure BorrarSeleccion;
var
 IniSelect, FinSelect : Integer;
begin
 //Inicio de la selección
 IniSelect := RichEdit1.Perform(EM_LINEFROMCHAR,RichEdit1.SelStart,0);
 //Fin de la selección
 FinSelect := RichEdit1.Perform(EM_LINEFROMCHAR,RichEdit1.SelStart + RichEdit1.SelLength,0);
 
 for i:=IniSelect to FinSelect do
  RichEdit1.Lines.Delete(IniSelect);
end;
...............................................................
...............................................................
...............................................................
 nIni := AnsiPos('1234', Richedit1.Text);
 nFin := AnsiPos('1235', Richedit1.Text);
 
 Richedit1.SelStart := nFin;
 Richedit1.SelLength := Length(Richedit1.Text);
 BorrarSeleccion;
 
 Richedit1.SelStart := 0;
 Richedit1.SelLength := nIni;
 BorrarSeleccion;

el código quedaría mas o menos así, talvez tengas que ajustar algo.

Saluditos

[jusaso]

Gracias por sus respuestas.

El código quedaría pues...

Código Delphi [-]
procedure TForm1.Button6Click(Sender: TObject);
var
  nfin,nIni:integer;
begin
 richedit1.Lines.LoadFromFile('GradosBIEN.rtf');
 nIni:=0;
 nFin:=0;
 nIni := AnsiPos('12345', Richedit1.Text);
 nFin := AnsiPos('12346', Richedit1.Text);

 RichEdit1.SetFocus;
 Richedit1.SelStart := nFin;
 Richedit1.SelLength := Length(Richedit1.Text);
 BorrarSeleccion;

 Richedit1.SelStart := 0;
 Richedit1.SelLength := nIni;
 BorrarSeleccion;
end;

procedure TForm1.BorrarSeleccion;
var
 IniSelect, FinSelect,i : Integer;
begin
 //Inicio de la selección
 IniSelect := RichEdit1.Perform(EM_LINEFROMCHAR,RichEdit1.SelStart,0);
 //Fin de la selección
 FinSelect := RichEdit1.Perform(EM_LINEFROMCHAR,RichEdit1.SelStart + RichEdit1.SelLength,0);

 for i:=IniSelect to FinSelect do
  RichEdit1.Lines.Delete(IniSelect);
end;

Y ciertamente funciona.
Pero tiene un problema importante que habría que solucionar.
El documento Word, en su versión RTF, tiene unas cien páginas.
Y tarda varios segundos, bastantes, en cargarse sobre el RichEdit.

El problema se complica cuando esta operación debe repetirse para cada 'producto'.

Por ello, habría que guardar en memoria la totalidad del texto y mostrar en el RichEdit sólo las líneas referentes al artículo seleccionado.

He visto algunos ejemplos que utilizan TMemoryStream o TStringStream pero nunca he tenido que utilizarlos....

Si se os ocurre algo... os lo agradecería.

Un cordial saludo

[ecfisa]

Hola jusaso.

El uso de TMemoryStream no va a acelerar significativamente la carga desde el disco,
que es, a mi criterio el punto álgido del problema.

Tal vez la solución pase por dividir el archivo de ayuda. Podés utilizar el criterio que prefieras;
código, nombre,... buscando una distribución lo más simétrica posible.

En mis pruebas con un Core2Duo y 4 Gb de Ram, con las 100 páginas, obtuve 8 s con la carga directa
del RichEdit, 7s y monedas con MemoryStream. Sin embargo dividiendo el archivo en cinco partes de 20
páginas cada uno la carga no llegó a 1s y la demóra fué casi imperceptible.

Lo que sí, te puede adicionar algunas dificultades al momento de ingresar un nuevo producto y en la
preselección de la ayuda, pero creo que es una solución viable.

Saludos.

[rrf]

Aunque no era para lo mismo exactamente, ante una situación similar, lo que hice fue utilizar 2 richedit.

El primer RichEdit cargaba y mantenía en memoria el contenido del archivo (siendo invisible para el usuario) y el 2º richedit era el que utilizaba para presentar la información seleccionada.

Así se reducía el tiempo de carga de la información porque, después de leer por primera vez el archivo RTF, ya se podía acceder a él directamente, al tenerlo en memoria.

Salu2.

Ramón.

[jusaso]

Hola ecfisa

Estaba equivocado...
El tiempo de espera no se produce al cargar el texto en RichEdit.
La carga la hace muy rápida.
El problema es debido al tener que borrar una a una todas las líneas sobrantes del RichEdit.....
Tarda mucho en hacerlo.


Código Delphi [-]
for i:=IniSelect to FinSelect do
RichEdit1.Lines.Delete(IniSelect);





Las he anulado y es muy rápido.

La solución cosistiría en borrar todo un bloque de líneas, pero no he visto la forma....

Por otro lado, utilizar dos RichEdit...
Todos los ejemplos que he visto en Google se limitan a copiar el TEXT completo del uno al del otro, sin realizar una selección de líneas, que es lo que buscamos.

Gracias por vuestras ideas....

[rrf]

Hola.

Bueno, he revisado el código que hice hace meses y, finalmente, lo hice todo con 1 solo RichEdit, aunque me quedó la idea de que había usado 2.

Bueno, te incluyo el código de la función que escribí. Puede tener algún pequeño error puesto que lo he adaptado para ponerlo aquí, pues el código original no se ajusta del todo a lo que se comenta en este hilo.

Código Delphi [-]
procedure TForm1.Selecciona_seccion_texto ( pp: integer );
var
  num_lin, cc : integer ;
  borra_lin : boolean ;
begin
      // Selecciona_seccion_texto
      //---------------------------

    // Eliminar el texto que no esté entre 2 marcas   (EJ: ENTRE  ,,,---2  y  ,,,---3 )
  outRichEdit1.Visible := false ;
  outRichEdit1.Lines.LoadFromFile( 'Archivo_Ayuda.rtf' );  // adaptarlo al nombre de tu archivo RTF

       // Borra hasta que aparece la marca de inicio del apartado de texto que interesa
  while trim ( outRichEdit1.Lines [ 0 ] ) <> ',,,---' + IntToStr ( pp )
    do outRichEdit1.Lines.Delete( 0 );

  outRichEdit1.Lines.Delete( 0 );   // Elimina la línea del separador

       // Borra desde la marca de inicio del siguiente apartado del texto hasta el final del texto
  borra_lin := false ;
  for cc := 0 to outRichEdit1.Lines.Count -1
   do
    begin

      if trim ( outRichEdit1.Lines [ cc ] ) = ',,,---' + IntToStr ( pp +1 )
        then
          begin
            borra_lin := true ;
            num_lin := cc ;
          end ;

      if borra_lin
        then outRichEdit1.Lines.Delete( num_lin ) ;

    end ;

  outRichEdit1.Visible := true ;
  outRichEdit1.Lines.Insert( 0, '' );  // Esto hace que el cursor
  outRichEdit1.Lines.Delete( 0 );      // quede al inicio del texto
  outRichEdit1.SetFocus ;

end ;

El texto está dividido en partes. Los separadores son ",,,---1", ",,,---2", ",,,---3", ..., ",,,---10", ",,,---11", etc.

El contenido del RichEdit sería algo así:
-----------------------------------------------------
,,,---1
Este es el texto del apartado 1 del texto.
Este es el texto del apartado 1 del texto.
Este es el texto del apartado 1 del texto.
,,,---2
Este es el texto del apartado 2 del texto.
Este es el texto del apartado 2 del texto.
Este es el texto del apartado 2 del texto.
,,,---3
Este es el texto del apartado 3 del texto.
Este es el texto del apartado 3 del texto.
Este es el texto del apartado 3 del texto.
Este es el texto del apartado 3 del texto.
,,,---4
-----------------------------------------------------

El nombre del RichEdit es outRichEdit1.

El parámetro "pp" indica el número del apartado del texto que queremos ver.

A mí me funcionó bastante bien y espero que te sirva.

Saludos.

Ramón.

PD.: Creo que el richedit tiene que tener la propiedad WordWrap a false para que funcione bien. Puede que no sea así (lo digo sin haberlo probado).