4 respuestas en este tema

[Fenareth]

Hola a todos !!!!

Aquí ando con una dudita pequeñita.... Tengo una aplicación que me permite agregar en un Texto contenido en un RichEdit algunas etiquetas que me sirven como campos para obtener los datos de una BD y que serán insertados en el Texto al momento de ejecutarse....

Por el momento tengo esto:

delphi

procedure TForm3.ListBox1DblClick(Sender: TObject);
var
  a, sEtiqueta: String;
begin
   sEtiqueta:= ProcesaEtiqueta(ListBox1.Items[ListBox1.ItemIndex]);
   a:=cxRichEdit1.Text;
   Insert(sEtiqueta,a,cxRichEdit1.SelStart);
   cxRichEdit1.Text:=a;
end;

Si el Texto contenido en el RichEdit tiene saltos de linea o espacios la inserción no se hace a partir del cursor. SelStart se supone que me da la posición del mismo, pero al parecer no considera ni los espacios ni los saltos de línea, generando algo así:


AAAA  AAAAAAA 

AAAAAA<etiqueta>AAAA

en vez de:


AAAA  AAAAAAA 

AAAAAAAAAA  <etiqueta>

Espero que se haya entendido mi problemita y les agradeceré bastante su ayuda 

Saludox !

[Rolphy Reyes]

Saludos.

Si no entendí mal, lo que andas buscando es que las etiquetas se puedan reemplazar por un valor de la BD.

Siendo así te recomiendo utilizar la sentencia StringReplace que te sirve para reemplazar valores, sin importar su posición dentro del texto su tampoco cuantas veces se repite.

Returns a string with occurrences of one substring replaced by another substring.

Unit

SysUtils

Category

string handling routines

Delphi syntax:

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

C++ syntax:

extern PACKAGE AnsiString __fastcall StringReplace(const AnsiString S, const AnsiString
OldPattern, const AnsiString NewPattern, TReplaceFlags Flags);

Description

StringReplace replaces occurrences of the substring specified by OldPattern with the substring specified by NewPattern. StringReplace assumes that the source string may contain Multibyte characters.

S is the source string, whose substrings are changed.

OldPattern is the substring to locate and replace with NewPattern.

NewPattern is the substring to substitute for occurrences of OldPattern.

Flags is a set of flags that govern how StringReplace locates and replaces occurrences of OldPattern. If Flags does not include rfReplaceAll, StringReplace only replaces the first occurrence of OldPattern in S. Otherwise, StringReplace replaces all instances of OldPattern with NewPattern. If the Flags parameter includes rfIgnoreCase, The comparison operation is case insensitive.

[Fenareth]

Es correcto amigo Rolphy pero no es precisamente mi problema...

Trataré de explicarlo un poco mejor.... Estoy realizando un documentador donde un usuario pueda decidir dónde poner ciertas etiquetas predeterminadas y el texto que desee a un documento X y después guardarlo en una BD para que al momento de que lo mande llamar se muestre el documento personalizado ya con los valores  de la BD reemplazando las etiquetas que el mismo usuario introdujo...

El detalle es que necesito que las etiquetas que el usuario introduzca sean exactamente donde él las quiere... y generalmente para insertar texto dentro de otro texto hacemos uso del cursor, lo ubicamos y es a partir de ahí donde se coloca el nuevo texto....

Me he explicado un poco mejor ? 

Saludox !

[egostar]

Hola amiguita

delphi

procedure TForm1.RichEdit1Click(Sender: TObject);
var
  a: string;
begin
  ShowMessage(format('%d,%d',[richEdit1.CaretPos.Y,richEdit1.SelStart]));
  a:= RichEdit1.Text;
  insert('<etiqueta>',a,richEdit1.SelStart+richEdit1.CaretPos.Y);
  RichEdit1.Text := a;
end;

Salud OS

[Fenareth]

Ya decía yo amiguito que tenía que ver con los saltos de línea         

Exactamente eso me faltaba, aumentarle al SelStart la cantidad de saltos de líneas introducido con CaretPos.Y 

Gracias !

Saludox !