Looking for better way...

[OC DelGuy]

Is there a better way to do something like this?
I feel there should be a way to shorten the code, and avoid adding a bunch of zeros.
I want to make the case statement capable of larger numbers without having to type in all those zeros.
Are there different ways to represent numbers in the actual code that makes it less bulky?

[ASerge]

Is there a better way to do something like this?

May be

Code: Pascal  [Select][+][-]

1. Index := Trunc(Log10(Dec * Power(10, Exp)))

[Khrys]

What exactly are you trying to achieve?
What should  Worded.Caption  represent in terms of  Dec  and  Exp?

[ASerge]

What exactly are you trying to achieve?
What should  Worded.Caption  represent in terms of  Dec  and  Exp?

Show all the code to see what you are doing.

[alpine]

Is there a better way to do something like this?

May be

Code: Pascal  [Select][+][-]

1. Index := Trunc(Log10(Dec * Power(10, Exp)))

+1   

Or is it just

Code: Pascal  [Select][+][-]

1. Exp + Log10(Dec)

?

Edit: + is for a log() decomposition of a product

[Zvoni]

What exactly are you trying to achieve?
What should  Worded.Caption  represent in terms of  Dec  and  Exp?

Show all the code to see what you are doing.

Yep.
Wouldn't be surprised if the Case-Statement could be eliminated with a simple Lookup-Array

[alpine]

Wouldn't be surprised if the Case-Statement could be eliminated with a simple Lookup-Array

No kidding!
As ASerge wrote Log10 will give you simply the number of zeros. But that so blindly: simple math rule: log(x*y) = log(x) + log(y), which is log10(Dec) + log10(power(10, Exp)).
https://www.onlinemathlearning.com/logarithms-product-rule.html 

[Khrys]

As ASerge wrote Log10 will give you simply the number of zeros. But that so blindly: simple math rule: log(x*y) = log(x) + log(y), which is log10(Dec) + log10(power(10, Exp)).
https://www.onlinemathlearning.com/logarithms-product-rule.html

And don't forget that  Log10(Power(10, Exp)) = Exp   

[alpine]

And don't forget that  Log10(Power(10, Exp)) = Exp   

Yup, that's what I meant in post #4.

[Khrys]

And don't forget that  Log10(Power(10, Exp)) = Exp   

Yup, that's what I meant in post #4.

Oops, I must've missed that   
Gotta be more careful when reading or I'll end up another Thaddy