OpenEuphoria

Re: Changing data types Concluded

• Posted by "H.W Overman" <euman at bellsouth.net> Mar 24, 2004
• 412 views

On Wednesday 24 March 2004 01:01 am, Derek Parnell wrote:

>   -- Find first text record that begins with 'abcd'.
>   FindStr = allocate_string("abcd")
>   len = 4
>   offset = 0
>   while offset < FileSize do
>     result = c_func(CompareString,{0, 0, RAMADDR+offset, len, FindStr,
> len}) if result = CSTR_ERROR or result = CSTR_EQUAL then
>          exit
>     end if
>     offset += recsize
>   end while
>   -- Copy the whole record into a sequence
>   TheRecord = peek({RAMADDR+offset, recsize})

Allen,

Make sure you free that allocated string.

Euman