Como gravar campo num�rio sempre em 4 casas decimais....

Question

pessoal tenho um campo num�rico...preciso q qndo o usu�rio digitar um n�mero de 1 (uma) casa decimal ele grave sempre em 4 (quatro) casas decimais. :roll: ex: usuario digita 1...delphi grava no banco ...

Lucas Silva · Answer

um exemplo;[code:1:0a8aa45c88]query.FieldByName(�Campo�).AsString := FormatFloat(�0.0000�, StrToFloat(edit.text);[/code:1:0a8aa45c88]...

Vinicius2k · Answer

Colega,Creio que vc esteja enganado... Isso n�o s�o casas decimais... s�o �zeros � esquerda�... e se este campo no banco for do tipo Inteiro, vc nunca vai conseguir gravar desta forma...Se for apenas para efeitos de exibi��o e edi��o, em componentes data-aware, como c�digos por exemplo, utilize as propriedades DisplayFormat e EditFormat do TField...No exemplo que vc citou a m�scara seria #0000...Se vc realmente quiser gravar assim no banco, vai precisar mudar o tipo de dado para Varchar, e formatar antes de gravar com algo parecido com isto :[code:1:7f853d29a5]Format(��4.4d�,&91;StrToInt(SUA_VAR_STRING)&93;)[/code:1:7f853d29a5] ou [code:1:7f853d29a5]Format(��4.4d�,&91;(SUA_VAR_INTEGER)&93;)[/code:1:7f853d29a5]Caso vc n�o queira mudar o tipo de dado no banco, mas precise desta formata��o para outra coisa qualquer, como gerar um arquivo texto, ou imprimir, por exemplo, use :[code:1:7f853d29a5]Format(��4.4d�,&#91;(SEU_CAMPO_INTEGER)&93;)[/code:1:7f853d29a5]T+...

Rockbilly · Answer

Ol� colega, fiz uma fun��o aqui, deve resolver tenta ai:

function campoF(valor: integer): string;
var
 n: integer;
 x: string;
begin
 n:= Length(IntToStr(valor));
 case n of
  1: x:= �000�+IntToStr(valor);
  2: x:= �00�+IntToStr(valor);
  3: x:= �0�+IntToStr(valor);
  else
     x:= IntToStr(valor);
 end;

 campoF := x;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 str: string;
begin
str:= campoF(StrToInt(Edit1.Text));
ShowMessage(str);

end;