Dúvidas com RichText

16/08/2004

1

Bom dia..
Estou desenvolvendo um módulo em meu sistema que é a criação /emissão de cartas de cobrança, para isto estou utlizando o componente RichText.

Existe alguma forma de inserir linhas em um richtext formatado à partir de um certo ponto?
Ex: eu estou utilizando tag, e na hora de imprimir eu substituo a tag pelo campo que eu quero assim:
  for i := 0 to Text1.Lines.Count do
  begin
    if Pos(´<CLINOM>´,Linha) > 0 then
    begin
      Text1.Lines[i] := AnsiReplaceStr(Text1.Lines[i],´<CLINOM>´,CdsCliCLINOM.Value);


Até ai tudo bem, mas eu também gostaria de inserir os títulos do cliente,
ai percorrendo as linhas quando eu encontrasse a tag[b:472d4ff6be] <DADOS>[/b:472d4ff6be]
seria a hora de percorrer o sql e mostrar os campos.
Aguém sabe como insiro linhas em um RichText já formatado, ou como posso copiar de um para outro respeitando a Formatação?

Grato
Fausto


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira