Bob,
Hi. When I look in the methods column in the VCX, in a browse, everything looks OK. But when I actually go to edit the methods in the class browser or class designer, everything is 'all messed up'. So I thought that maybe the class designer is inserting special characters between different methods of the same object. So I wrote this code:
copy memo methods to memofield.txt && where the methods column
** had methods that i created directly with the class designer.
** so i could see the 'correct' characters that were in the field
lnhandle=fopen('memofield.txt')
wait wind str(lnhandle)
ctr=1
do while not feof(lnhandle)
x=fread(lnhandle,1)
?' ', x, ' ', asc(x)
ctr=ctr+1
if ctr >= 30
wait wind 'press any key'
clear
ctr=1
endif
enddo
fclose(lnhandle)
Yet, after the end of each line there was a chr(13) followed by a chr(10) -
The same characters I started out with in my routine - but when I do it, from code it doesn't work. ??
>David,
>
>I went into my app and added a quick second method following the example I sent earlier. Here's the results clipped directly from the VCX:
>
>PROCEDURE Init
> WITH THIS
> DIMENSION .aCompanionCtls[1]
> .cClassName = 'employee'
> .cFormName = 'frmemployee'
> .cFKName = 'fk_employees'
> ENDWITH
>ENDPROC
>PROCEDURE Test
>SET SAFETY OFF
>ENDPROC
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only