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
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement