formatar string
estou querendo colocar em um relatório uma linha onde apareça todos os dados da empresa lado a lado, eis um pedaço das linhas usadas.
frmRelPedido.QRLabel34.Caption := frmRelPedido.QRLabel34.Caption + ´ . Fone ´ + frmRelPedido.QueEmpresaTelefone.Value;
o problema é que o telefone gravo o telefone sem os () e o - por isso preciso saber como formata-lo nessa mesma linha sem ter que recorrer a uma procedure
frmRelPedido.QRLabel34.Caption := frmRelPedido.QRLabel34.Caption + ´ . Fone ´ + frmRelPedido.QueEmpresaTelefone.Value;
o problema é que o telefone gravo o telefone sem os () e o - por isso preciso saber como formata-lo nessa mesma linha sem ter que recorrer a uma procedure
Salupe
Curtidas 0
Respostas
4_olho
29/05/2003
Use QRExpres e construa a expressão desejada.
Usando o assistente é bem fácil (clique em ...) na propriedade Expression do componente QRExpres.
Usando o assistente é bem fácil (clique em ...) na propriedade Expression do componente QRExpres.
GOSTEI 0
Alane
29/05/2003
tente isso:
// telefone de exemplo 3332712121 sem ()
// os dois primeiros é o DDD e o restante é o nº do telefone
no evento before print da banda coloque:
var nDDD:String; // crie uma variavel
nDDD:=copy(TabelaTelefone.Value,1,2); // atribua o valor a variavel
Qrlabel3.caption:=´(´+nDDD+´)´+copy(TabelaTelefone.Value,3,8);
espero ter ajudado,
boa sorte !
alane@wkve.com.br
// telefone de exemplo 3332712121 sem ()
// os dois primeiros é o DDD e o restante é o nº do telefone
no evento before print da banda coloque:
var nDDD:String; // crie uma variavel
nDDD:=copy(TabelaTelefone.Value,1,2); // atribua o valor a variavel
Qrlabel3.caption:=´(´+nDDD+´)´+copy(TabelaTelefone.Value,3,8);
espero ter ajudado,
boa sorte !
alane@wkve.com.br
GOSTEI 0