bom dia a todos, ja desenvolvi um sitema q e o pega um texto do formato RICH
TEXT,
funciona +/- assim ... abro o arquivo formatado (rich text) no componete
RichText
Ex:
-----------------------------------------------------------------------------------------------------------
(conteudo do texto)
Prezado Sr(a) 1a#
declaro ter pago a empresa do fulando de tal a quantia de 2b#
______________________________________________________________
// contante global
const
///{0.. 99} qtds de campos q vc vai usar no meu caso 100 campos da tabela
a : array[0..99] of string = (
'a1','b2','c3','d4','e5','f6','g7','h8','i9','j10','l11','k12','m13','n14','o15','p16','q17','r18','s19','t20','u21','v22','w23','x24','y25','z26',
'a27','b28','c29','d30','e31','f32','g33','h34','i35','j36','l37','k38','m39','n40','o41','p42','q43','r44','s45','t46','u47','v48','w49','x50','51y','52z',
'53a','54b','55c','56d','57e','58f','59g','60h','61i','62j','63l','64k','65m','66n','67o','68p','69q','70r','71s','72t','73u','74v','75w','76x','77y','78z',
'79a','80b','81c','82d','83e','84f','85g','86h','87i','88j','89l','90k','91m','92n','93o','94p','95q','96r','97s','98t','99u','100v');
em um botao coloco o seguinte codigo:
-----------------------------------------------------------------------------------------------------------------
var
FoundAt: LongInt;
x,x1 : integer;
r : string;
begin
//d.pesquisa e uma query ou ibquery ou o caralho de asa ... to bebado...
heheheh
D.Pesquisa.close;
D.pesquisa.Sql.Text := 'select * from Auxiliar';
D.Pesquisa.Open;
d.Pesquisa.Next ;
for x := 0 to d.Pesquisa.FieldCount -1 do
begin
with RichEdit1 do
begin
r := a[x] + '#'; ////a representa a constante x representa o campo----
a[1] e a mesma coisa de a1# e a1# vai ser substituido pelo campo 1 da sua
tabela
FoundAt := Pos(r, Text) - 1;
if (FoundAt > 1) then
begin
SelStart := FoundAt;
SelLength := Length(r);
SelText := D.pesquisa.fields[x].asstring;
end;
end;
end;
end;
----------------------------------------------------------------------------------------------------------------
a ideia e o seguinte... vc tem os campos na tabela:
codigo
nome
endereco
cidade
estado
o campo codigo o indice e 0
o campo nome o indice e 1
campo endereco e inice 2
----
estado o indice e 4.
ai vc vai fazer a pergunta... pq ele usou a#, b#,c#... ? eu usei pq vai qse q
impossivel achar dentro de um texto digitado essa informaçao, mas se encontrar
vai ser substituido
Ai vc vai se perguntar como q eu vc vai justificar??? nesse caso tem um
compontente chamado JustifyRichEdit ---------> esse componente tem opcao
justificado,
desculpe pelos erros tô meio tonto.... bebi um pouco
espero q tenha ajudado ... t+
Andre Luis Silveria <[EMAIL PROTECTED]> escreveu:
Olha no site www.clubedelphi.net que tem uns artigos falando sobre
isso.
----- Mensagem original ----
De: Vinicius Santos - MSI <[EMAIL PROTECTED]>
Para: [email protected]
Enviadas: Sexta-feira, 22 de Fevereiro de 2008 15:14:59
Assunto: Re: [delphi-br] Ajuda Delphi com Word
Fala mermão, faça a mala direta usando Access normalmente, depois insere os
dados na tabela do Access pelo Delphi !
Flw Flw
Vinicius dos Santos
Analista de Desenvolvimento Júnior
MSI SOLUÇÕES
Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
Fone/Fax: +55 (14) 3324-8181 www.msisolucoes. com.br
----- Original Message -----
From: Raphae Fonseca
To: [EMAIL PROTECTED] os.com.br
Sent: Friday, February 22, 2008 3:06 PM
Subject: [delphi-br] Ajuda Delphi com Word
Boa tarde amigos da Lista
Estou precisando fazer uma mala direta delphi X Word.
Inserir dados de uma determinada tabela num documento já formatado no word.
Algum amigo já desenvolveu algo parecido?
Poderia me ajudar
Raphael
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail. yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
-->
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
