Como fa�o para ficar quot;000001quot; do DBEdit ao inv�s d

Question

Amigos,  como fa�o para adicionar zeros na frente do n�mero em um DBEdit?...

Tnaires · Answer

Ol�Use a fun��o format:[code:1:8b168a663f]Edit.Text := Format(��n.nd�, Edit.Text);[/code:1:8b168a663f]Substitua a letra n pelo n�mero de d�gitosAbra�os...

Tnaires · Answer

Hmmm, me desculpe.N�o notei q vc tinha perguntado em um DBGrid.Altere a propriedade DislpayFormat do Field correspondente � coluna do DBGrid q vc quer alterar para 00000# (coloque o n�mero de zeros q vc deseja)....

Fabianotupa · Answer

N�o entendi, tb tenho essa d�vida, mas gostaria de fazer isso em um DBEdit e n�o em um DBGrid, tentei no DBGrid e tb n�o consegui mas quero fazer em um DBEdit!Um abra�oFabiano....

Denis · Answer

coloque a m�scara 00000 na propriedade do campo. D� um clique duplo na tabela, e mande adicionar todos os campos. E no campo que quer � s� colocar as m�scaras....

Fabianotupa · Answer

que propriedade? que tabela? que Campo?n�o entendo!Tenho um DBEdit que traz dados de um banco access!poderia explicar melhor isso?Abra�o!...

Tremonti · Answer

[code:1:d7553ee3ab]function LTrim(cString: String): String;var Count, i: Byte;begin Count := Length(cString); if Count > 0 then begin for i := 1 to Count do begin if cString[i&93; <> � � then Break; end; cString := Copy(cString,i,Count-i+1); end; LTrim := cString;end;function RTrim(cString: String): String;var Count, i: Byte;begin Count := Length(cString); if Count > 0 then begin for i := Count downto 1 do begin if cString&91;i&93; <> � � then Break; end; cString := Copy(cString,1,i); end; RTrim := cString;end;function LeftZero(cString: String; nPosicoes: Word): String;Const cDigitosValidos: PChar = � 0123456789/�;Var lDigitoNumerico: Boolean; nString: Integer;begin cString := RTrim(LTrim(cString)); lDigitoNumerico := True; nString := Length( cString ); while nString > 0 do begin If StrScan(cDigitosValidos, cString[nString&93;) = nil then begin lDigitoNumerico := False; nString := 0 end else Dec(nString); end; If lDigitoNumerico = True then begin while Length( cString ) < nPosicoes do begin cString := �0�+ cString; end; end; LeftZero := cString;end;Para Usar:Edit1.text := LeftZero(Edit1.text , 4);//Completa com 4 zeros Edit1.text := LeftZero(Edit1.text , 8);//Completa com 8 zeros[/code:1:d7553ee3ab]e assim vai.......

Tnaires · Answer

[quote:f545e9af8f=�fabianotupa�]que propriedade? que tabela? que Campo?n�o entendo!Tenho um DBEdit que traz dados de um banco access!poderia explicar melhor isso?Abra�o![/quote:f545e9af8f]Cara, me desculpe, me enrolei demais te dando uma resposta.A propriedade a que o Denis se refere � a DisplayFormat, no objeto TField correspondente ao DBEdit no Fields Editor (d� dois cliques no Table, ou Query, correspondente)....

Orlando Frade · Answer

vlw rapaziada!!!!!...

Fabianotupa · Answer

Valeu Pessoal!!Desculpem minha ignor�ncia  :D  Consegui resolver o problema!abra�o!!!!!...

F�rum Como fa�o para ficar quot;000001quot; do DBEdit ao inv�s d #287082