Marien
On 6/14/06, John Meyer <[EMAIL PROTECTED]
> wrote:
var
d_Total: Extended;
d_SubTotal : Extended;
d_SalesTax: Extended;
s_TotalMessage: string;
begin
d_SubTotal := StrToFloat(edSubtotal.Text);
d_SalesTax := StrToFloat(EdTax.Text);
if d_SalesTax >= 1.0 then
d_SalesTax := d_SalesTax / 100;
d_Total := d_SubTotal + (d_SubTotal * d_SalesTax);
s_TotalMessage := 'Total amount is ' + FloatToStr(d_Total);
lblTotal.Text := s_TotalMessage;
end;
This works fine with integers (i.e. if the whole amount on total is an
integer), but with floats, it doesn't produce anything after 'Total
amount is '.
--
Online library -- http://pueblonative.110mb.com
126 books and counting.
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
