Fórum Extrair a quantidade de casas decimais #213181

11/02/2004

0

Delphi

Bom dia, pessoal.

É o seguinte: tenho um valor A e preciso extrair a quantidade de casas decimais X (dígitos após o separador decimal) para formatar um valor B

Ex.:
A = 9,123
X = 3 (casas decimais de A)
B = 5,1 (aplicando 3 casas decimais => B = 5,100 * * * É isso que eu preciso fazer aparecer !!!! )

Como obter X ? Como formatar B com X casas decimais ?

Um abração,

Fabi


Falinden

Falinden

Responder

Posts

11/02/2004

Fabio.hc

Tente assim:

Ex:
procedure TForm1.Button1Click(Sender: TObject);
var Vcasas:integer;
    Vstrin:string;
begin
   Vcasas:=PosEx(´,´,Edit1.Text);
   Vstrin:=copy(Edit2.Text,Vcasas+1,length(Edit1.Text)-(Vcasas));
   Vcasas:=length(Vstrin);
   Edit3.Text:=FloatToStrF(StrToFloat(Edit2.text), ffFixed, Vcasas, Vcasas);
end;


Ex.: A = 9,123 X = 3 (casas decimais de A) B = 5,1 (aplicando 3 casas decimais => B = 5,100 * * * É isso que eu preciso fazer aparecer !!!! )

Neste exemplo, coloquei 3 edits.

edit1.text = digita o seu valor A.
edit2.text = digita o seu valor B.
edit3.text = mostra o seu valor B com as casas decimais do valor A.


Responder

Gostei + 0

11/02/2004

Falinden

Olá, Fábio, tudo bem ?

Quando compilo está ocorrendo erro na função PosEx().
A qual unit / biblioteca ela pertence ?

Uso o Delphi5.

Obrigada pela ajuda,

Fabi


Responder

Gostei + 0

11/02/2004

Fabio.hc

Troque o PosEx pelo [b:4060608246]Pos[/b:4060608246], to usando o delphi 7.


Responder

Gostei + 0

11/02/2004

Falinden

Fábio,

A função Pos(´,´, Edit1.Text) retorna a posição da vírgula na string.
Assim, não dá certo.

Grata,

Fabi


Responder

Gostei + 0

11/02/2004

Fabio.hc

Estou enviando um e-mail, te explicando a sub-rotina acima.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar