Sorry your browser is not supported!

float f;
char* p = "1.234";
sscanf(p,"%f",&f);
agk::Print(agk::Str(f));

float f;
char* p = "1.234";
sscanf(p,"%.3f",&f);
agk::Print(agk::Str(f));

function FloatVal(s$)
    s1$=""
    s2$=""
    l = len(s$)
    for c=1 to l
        letter$=mid(s$,c,1)
        if letter$="."
            s2$=mid(s$,c+1,l-c)
            exit
        else
            s1$=s1$+letter$
        endif
    next
    v1=val(s1$)
    v2#=val(s2$)
    n=len(s2$)
    if n>6
        n=6
        s2$=mid(s2$,1,6)
        v2#=val(s2$)
    endif
    for i=1 to n
        v2#=v2#*0.1
    next
    v#=v1+v2#
endfunction v#

function FloatVal(s$)
    s1$=""
    s2$=""
    l = len(s$)
    for c=1 to l
        letter$=mid(s$,c,1)
        if letter$="."
            s2$=mid(s$,c+1,l-c)
            exit
        else
            s1$=s1$+letter$
        endif
    next
    v1=val(s1$)
    v2#=val(s2$)
    n=len(s2$)
    if n>6
        n=6
        s2$=mid(s2$,1,6)
        v2#=val(s2$)
    endif
    for i=1 to n
        v2#=v2#*0.1
    next
    v#=v1+v2#
endfunction v#

a# = 12345.0 / 100.0

do
    print(a#)
    sync()
loop

s$ = "12345.12345678987654321"
do
    Print(str(getDecimalVal(s$)))
    Print(str(richFloat(s$)))
    Print(str(FloatVal(s$)))
    Sync()
loop

function richFloat(a$)
    ` search for the first dot in the string

    for c = 1 to len(a$)
        c$ = mid(a$, c, 1)
        if c$ = "." and foundDot = 0
            foundDot = 1
            dotPosition = c
        endif
    next c

    if foundDot = 0
        value# = val(a$) * 1.0
        fractionalPart$ = "0"
    else
        ` find the two parts of the value
        integerPart$ = left(a$, dotPosition)
        fractionalPart$ = right(a$, len(a$) - 1 - dotPosition)

        ` calculate the divisor needed to move the decimal
        divisor = (10 ^ (len(fractionalPart$)))

        ` calculate both values
        integerValue# = (val(integerPart$) * 1.0)
        decimalValue# = (val(fractionalPart$) / (divisor * 1.0))

        ` combine them
        value# = integerValue# + decimalValue#
    endif
endfunction value#

function FloatVal(s$)
    s1$=""
    s2$=""
    l = len(s$)
    for c=1 to l
        letter$=mid(s$,c,1)
        if letter$="."
            s2$=mid(s$,c+1,l-c)
            exit
        else
            s1$=s1$+letter$
        endif
    next
    v1=val(s1$)
    v2#=val(s2$)
    n=len(s2$)
    if n>6
        n=6
        s2$=mid(s2$,1,6)
        v2#=val(s2$)
    endif
    for i=1 to n
        v2#=v2#*0.1
    next
    v#=v1+v2#
endfunction v#

function getDecimalVal( decimal$ as string )

    // locals
    length as integer = 0 // length of string
    place as integer = 0 // the place of the current character when looping through the string
    p10 as integer = 0 // power of 10
    value# as float = 0.0 // the decimal to be returned
    intvalue as float = 0.0 // the integer half of the value e.g 123 is the intvalue in 123.45
    decvalue as float = 0.0 // the complement of intvalue e.g 45 is the decvalue in 123.45

    // get the length of the decimal
    length = len(decimal$)

    // loop through until we find the decimal point
    repeat

    place = place + 1

    until mid(decimal$, place, 1) = "." or place > length

    p10 = length - place // get the power of 10 we will need to multipy by and divide by

    intvalue = val( left( decimal$, place-1)) // get the value for intvalue
    decvalue = val( right( decimal$, p10)) // get the decimal value in integer form

    // multiply by the power of 10, add the decimal and then divide by the power of 10
    value# = ((intvalue * (10.0^p10)) + decvalue) / (10.0^p10)

endfunction value# // return decimal.

function richFloat(a$)
	// initialise values
	// if not initialised, the check for zero might return
	// odd values (I don't know if AGK will assume zero
	// on an unused, unassigned variable)
	foundDot = 0
	
	// it is possible that AGK may actually evaluate
	// 'len(a$)' each time it goes through the loop
	// and the value may be used at least once more
	// so get it once
	alen = len(a$)

	// search for the first dot in the string
	for c = 1 to alen
		// check directly for a match
		// no need for the extra variable assigment
		if mid(a$, c, 1) = "."
			// indicate found
			foundDot = 1

			// store the location
			dotPosition = c

			// get out of the loop, no need to keep
			// looking at the rest of the string
			exit
		endif
	next c

	// if no period found, just return float version of
	// the value of the string
	if foundDot = 0
		// AGK will automagically make this a float
		// so it is not necessary to multiply by 1.0
		value# = val(a$)

		// all done, return what we have and exit
		exitfunction value#
	endif

	// extract the fractional part
	// the extra '- 1' was actually truncating the float
	// part by one character (this is the one bug)
	fracPart$ = right(a$, alen - dotPosition)

	// calculate the divisor needed to move the decimal
	// declare the variable as a float and make the 
	// ten a float, this removes another unnecessary
	// multiplication
	divisor# = (10.0 ^ (len(fracPart$)))

	// convert, calculate and combine them
	// this can all be done in one step to
	// reduce extra assignments
	value# = val(left(a$, dotPosition)) + 
		 (val(fracPart$) / divisor#)
endfunction value#

function FloatVal(a$)
	// declare some bits
	c AS integer
	l AS integer
	fd AS integer
	dp AS integer

	// initialise values
	fd = 0
	l = len(a$)

	// search for the first dot in the string
	for c = 1 to l
		if mid(a$, c, 1) = "."
			// indicate found
			fd = 1

			// store the location
			dp = c

			// get out of the loop
			exit
		endif
	next c

	// if no period found, just return float version of
	// the value of the string
	if fd = 0
		v# = val(a$)
		exitfunction v#
	endif

	// get the fractional part
	fp$ = right(a$, l - dp)

	// calculate the divisor needed to move the decimal
	div# = (10.0 ^ (len(fp$)))

	// convert, calculate and combine them
	v# = val(left(a$, dp)) + (val(fp$) / div#)
endfunction v#

a$='300.0' frac str='0' frac val=0.000000000000 div=10.0 res=300.000000000000
a$='0.75' frac str='75' frac val=0.750000000000 div=100.0 res=0.750000000000
a$='0.5' frac str='5' frac val=0.500000000000 div=10.0 res=0.500000000000
a$='0.99' frac str='99' frac val=0.990000009537 div=100.0 res=0.990000009537
a$='972' no fraction, res=972.000000
a$='-12' no fraction, res=-12.000000
a$='12345.987654321' frac str='987654321' frac val=0.987654328346 div=1000000000.0 res=12345.987304687500
a$='12345.123456789' frac str='123456789' frac val=0.123456791043 div=1000000000.0 res=12345.123046875000

procedure TForm_checkfloat.Button1Click(Sender: TObject);
var first  : single;
    second : double;
    third  : extended;
begin

  try

    Memo_output.Lines.Add('Convert: '+edit1.text +' to single precision');
    first := StrToFloat(edit1.Text);
    Memo_output.Lines.Add(floattostr(first));

    memo_output.Lines.Add('Convert: '+edit1.text +' to double precision');
    second := StrToFloat(edit1.Text);
    memo_output.Lines.Add(floattostr(second));

    memo_output.Lines.Add('Convert: '+edit1.text +' to extended precision');
    third := StrToFloat(edit1.Text);
    memo_output.Lines.Add(floattostr(third));

  except

    Beep;
    memo_output.Lines.Add('Invalid entry number');
    exit;

  end;

end;

Convert: 12345.123456789 to single precision
12345.123046875
Convert: 12345.123456789 to double precision
12345.123456789
Convert: 12345.123456789 to extended precision
12345.123456789