[firebase-br] off topic: mala direta

[Emanuel Coutinho]

Colega, se desejar, pode entrar em contato diretamente para meu e-mail e 
continuaremos a buscar uma solução para seu problema

Francisco escreveu:
> obrigado a todos pela dica, melhor encerrar por aqui, ja q tamos fugindo um 
> pouco do escopo da lista. valeu amigos.
> ----- Original Message ----- 
> From: "Eduardo Bahiense" <eduardo em icontroller.com.br>
> To: <lista em firebase.com.br>
> Sent: Sunday, September 30, 2007 4:47 PM
> Subject: Re: [firebase-br] off topic: mala direta
>
>
> [...]
>   
>> texto de forma padrão: ex:
>> &nome&
>> &endereço&
>> ou
>> <<nome>>
>> <<endereço>>
>>
>> mandar sua aplicação ler o texto rtf para uma variável de texto, ou ums
>> stringlist e usar as funções do próprio Delphi (o help é rico nelas).
>>     
>
> No caso de Rtf tem que fazer via FindText.
> A procedure abaixo demonstra como fazer se você passar uma lista do tipo
>
>
> ReplaceList.Add('Nome=José Antônio da Silva');
> ReplaceList.Add('Endereco=Rua x, No Tal');
>
> ou ainda
>
> ReplaceList.Values['Nome']     := 'José Antônio da Silva'
> ReplaceList.Values['Endereco'] := 'Rua x, No Tal'
>
> No caso, ela procura <Nome> e substitui por José Antônio da Silva e
> assim  sucessivamente
>
>
> procedure DoReplaceRichFields(RichEdit: TRichEdit;  ReplaceList:TStrings);
> var FoundAt, i, StartPos, EndPos, nSize:integer;
>      ToSearch, ToReplace:String;
> begin
>       EndPos := RichEdit.GetTextLen;
>       for i := 0 to ReplaceList.Count-1 do
>           begin
>                StartPos := 0;
>                FoundAt  := 0;
>                while FoundAt >= 0 do
>                      begin
>                           ToSearch  := '<'+ReplaceList.Names[i]+'>';
>                           ToReplace := ReplaceList.ValueFromIndex[i];
>                           nSize     := Length(ToSearch);
>                           FoundAt := RichEdit.FindText(ToSearch,
> StartPos, EndPos, [stMatchCase]);
>                           if FoundAt >= 0 then
>                              begin
>                                   RichEdit.SelStart  := FoundAt;
>                                   RichEdit.SelLength := nSize;
>                                   RichEdit.SelText   := ToReplace;
>                                   StartPos           := FoundAt+nSize;
>                              end;
>                      end;
>           end;
> end;
>
> []s Eduardo
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço 
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>