formatar string
.como posso formatar esta string
tenho um a variavel que é o CEP do tipo string
gostaria d formatala para sai assim 99.999-999
value:=format(???)
:shock:
tenho um a variavel que é o CEP do tipo string
gostaria d formatala para sai assim 99.999-999
value:=format(???)
:shock:
Pereiramarcos
Curtidas 0
Respostas
Edilcimar
15/12/2005
Por que não usa um maskedit, que aí ela já vem formatada sem dar trabalho?
GOSTEI 0
Pereiramarcos
15/12/2005
vou fazer isso no quick report,
ja formatei no clientdataset e nao esta imprimindo com a mascara. . .
por isso usaria o format no evento do expression do quick format
ja formatei no clientdataset e nao esta imprimindo com a mascara. . .
por isso usaria o format no evento do expression do quick format
GOSTEI 0
Edilcimar
15/12/2005
na tabela está formatado para apresentação e/ou para gravação?
GOSTEI 0
Pecchiai
15/12/2005
.como posso formatar esta string
tenho um a variavel que é o CEP do tipo string
gostaria d formatala para sai assim 99.999-999
value:=format(???)
:shock:
Var
Cep : String;
begin
Cep := Copy(edit1.text, 1, 2) + ´.´ + Copy(edit1.text, 3, 3) + ´-´ + Copy(edit1.text, 6, 3);
ShowMessage(cep);
End;
Espero ter ajudado
Adilson
GOSTEI 0
Pereiramarcos
15/12/2005
esta formatado 99.999\-999,0,_
mesmo assim nao aparece no relatorios, se eu entendi oque voce falou
mesmo assim nao aparece no relatorios, se eu entendi oque voce falou
GOSTEI 0
Pecchiai
15/12/2005
esta formatado 99.999\-999,0,_
mesmo assim nao aparece no relatorios, se eu entendi oque voce falou
Marcos no evanto BeforePrint do QR vc formata usando o copy, como no exemplo acima.
GOSTEI 0
Pereiramarcos
15/12/2005
[size=9:4ff798b109]procedure TQRL.QRExpr1Print(sender: TObject; var Value: String);
begin
value:=Copy(value, 1, 2) + ´.´ + Copy(value, 3, 3) + ´-´ + Copy(value, 6, 3);
end;[/size:4ff798b109]
somente assim funcionou.
obrigado a todos pela dica
begin
value:=Copy(value, 1, 2) + ´.´ + Copy(value, 3, 3) + ´-´ + Copy(value, 6, 3);
end;[/size:4ff798b109]
somente assim funcionou.
obrigado a todos pela dica
GOSTEI 0
Romulocpd
15/12/2005
Olá pessoal,
Venho do VB e lá eu poderia fazer assim:
Dim CEP as String
CEP = ´28600000´
MsgBox Format(CEP, ´#-´) que na hora vai. Nâo tem como fazer isso no Delphi?
Vlw!
Venho do VB e lá eu poderia fazer assim:
Dim CEP as String
CEP = ´28600000´
MsgBox Format(CEP, ´#-´) que na hora vai. Nâo tem como fazer isso no Delphi?
Vlw!
GOSTEI 0
Pereiramarcos
15/12/2005
[size=9:7ef255294b]procedure TQRL.QRExpr1Print(sender: TObject; var Value: String);
begin
value:=Copy(value, 1, 2) + ´.´ + Copy(value, 3, 3) + ´-´ + Copy(value, 6, 3);
end;[/size:7ef255294b]
eu so consegui assim e foi muito dificil so consegui gracas a ajuda do Adilson, pois tentei todos os outros meios, da so uma olhada no help da funçaõ Format no delphi e tenta fazer isso que voce quer. se conseguir me fale pois eu tentei e nao consegui, se entendi o format para string e para alinhar a direita a esquerda no contro e etc... funciona bem para string para moedas.
se eu puder ajudar pois tb. venho de outra linguagem e estou penenado ma eu chego la, na medida do possivel o pessoal aqui e lega e responde bem. . .
GOSTEI 0