RichEdit (RTF) x Tags

08/09/2004

Tenho um form onde o usuário digita algumas informações e depois acessa um editor feito com o Componente TRichEdit. Neste editor o sistema mostra um contrato com os parâmetros informados no primeiro form. Preciso substituir no modelo do contrato as informações
ex. @01 = Nome do Cliente .

Isso consegui fazer, porém na hora de gravar o contrato não posso gravar o parâmetro substituído (Ex. Nome do Cliente), mas preciso gravar a referência (Ex. @01) pois se o usuário alterar algum parâmetro e acessar novamente o editor é necessário fazer a atualização no documento.

Uma vez eu vi que tem algumas Tag´s para documentos RTF, mas não sei se isso é possível... Alguém tem algum idéia?

Obrigado


Mcd

Respostas

08/04/2005

Pinetlux

Passei por algo parecido e simplesmente escondi a meleca do parâmetro, colocando-o da mesma cor do papel:

var intPosicao: integer;
...
with RichEdit1 do begin
intPosicao:= FindText(´Texto´, 0, Length(Text), [stMatchCase]);
SetFocus; SelStart:= intPosicao; SelLength := Length(´Texto´);
SelAttributes.Color := clWhite;
end;


Responder Citar