casas decimais comtabelas paradox
11/04/2003
0
oi, estou com problema nas casas decimais em paradox, fiz de tudo para colocar apenas duas casas decimais na tabela, mas em alguns casas tem valores com 16 casas decimais, alguém pode me ajudar, o código que uso está logo abaixo. Muito Obrigado
procedure TF_Importar.GravaReg(Lanc,Cont:Integer;
Conta1,Conta2,CodHist:String;Valor:Real;Data:TDateTime);
var
dec1, inteiro, valor2 : real;
dec2 : string;
begin
dec1 := Frac(Valor);
inteiro := Int(Valor);
dec2 := Copy(floattostr(dec1),1,4);
valor2 := inteiro + strtofloat(dec2);
Table1Valor.currency := True;
Table1.Append;
Table1[´Lancamento´] := StrZero(IntToStr(Lanc),6);
Table1[´Cont´] := Cont;
Table1[´Debito´] := Conta1;
Table1[´Credito´] := Conta2;
[color=red:d3c0558e99] Table1[´Valor´] := Valor2;[/color:d3c0558e99]
Table1[´Data´] := Data;
Table1[´Custo´] := Svl(CC.Text);
o erro está no campo em vermelho.
procedure TF_Importar.GravaReg(Lanc,Cont:Integer;
Conta1,Conta2,CodHist:String;Valor:Real;Data:TDateTime);
var
dec1, inteiro, valor2 : real;
dec2 : string;
begin
dec1 := Frac(Valor);
inteiro := Int(Valor);
dec2 := Copy(floattostr(dec1),1,4);
valor2 := inteiro + strtofloat(dec2);
Table1Valor.currency := True;
Table1.Append;
Table1[´Lancamento´] := StrZero(IntToStr(Lanc),6);
Table1[´Cont´] := Cont;
Table1[´Debito´] := Conta1;
Table1[´Credito´] := Conta2;
[color=red:d3c0558e99] Table1[´Valor´] := Valor2;[/color:d3c0558e99]
Table1[´Data´] := Data;
Table1[´Custo´] := Svl(CC.Text);
o erro está no campo em vermelho.
Tiago.arrosi
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)