Fórum Retirar Zeros a esquerda #287724
12/07/2005
0
:( :( :(
Demetrius
Curtir tópico
+ 0Posts
12/07/2005
Demetrius
tenho os seguintes valores em uma coluna do dbgrid: 00000000123, 00000012345 e preciso transforma-los em 123 e 12345.
Alguém sabe?
Gostei + 0
12/07/2005
Lynx
exemplo 000005 +0 = 5; 8)
Gostei + 0
12/07/2005
Lynx
Gostei + 0
12/07/2005
Demetrius
Eu uso SQLClientDataSet + DataSetProvider + ClienteDataSet + DataSource.
Valeu. :lol: :lol: :lol:
Gostei + 0
12/07/2005
Lynx
A Propriedade CalcField da query, faz em tempo de execução tudo.
Você pode modificar qualquer registro que vai listar em seu grid, na propriedade CalcField.
Não tenho nenhum exemplo neste momento...
Mas posso lhe enviar mais tarde.
valeu :wink:
Gostei + 0
12/07/2005
Demetrius
Obrigado pela atenção.
:D
Gostei + 0
12/07/2005
Kapak
Gostei + 0
13/07/2005
Demetrius
:lol: :lol:
Obrigado.
Gostei + 0
13/07/2005
Demetrius
:) :) :)
Gostei + 0
13/07/2005
Kapak
var s:String;
begin
if Field.DisplayLabel = ´Campo_Zeros´ then
begin
s := Retire_Zeros(Field.AsString); // escreva a função que retira 0s
DBGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+1, s);
end;
end;Gostei + 0
13/07/2005
Demetrius
var s:String;
begin
if Field.DisplayLabel = [color=red:ce7e299ba7]´Campo_Zeros´ [/color:ce7e299ba7]then
begin
s := [color=red:ce7e299ba7]Retire_Zeros[/color:ce7e299ba7](Field.AsString); // escreva a função que retira 0s
DBGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+1, s);
end;
end;
Eu sou meio Sherek!!!!
:shock: :shock:
Gostei + 0
13/07/2005
Kapak
2-Escreva uma função que retorne uma string sem os zeros à esquerda.
3-Feito isso, o Canvas do DBGrid desenha a string na célula correspondente.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)