Path: utzoo!utgpu!watserv1!watmath!att!rutgers!usc!wuarchive!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!aplcen!haven!adm!news
From: C0361@univscvm.csd.scarolina.edu ( Thomas Jenkins)
Newsgroups: comp.lang.pascal
Subject: The POINTER problem is solved
Message-ID: <24813@adm.BRL.MIL>
Date: 19 Oct 90 18:50:00 GMT
Sender: news@adm.BRL.MIL
Lines: 34

Hello,

  Thanks to all who responded!  I have solved the problem!  I did include
a GetMem statement in my program to all who pointed out that I left that
off my example that was posted!  There were actually two problems:

 1)  In the move statement, I should have used tempBuffer^   :
     GetMem ( tempBuffer , size ) ;
     Move ( buffer , tempBuffer^ , size ) ;

     This caused the system hang ( for obvious reasons :-)!  I was over
writting god knows what ( and the PC liked less :-) !


    2.  I was under-writing my buffer during the encryption!  I am using
        TYPE  encrytper = array (.1..1.) of byte ;

        VAR   encrypt : encrypter absolute buffer ;

        I then set tSize := size and encrypt ( decrypt ) from the rear of the
        buffer foward  ( IE, DEC(tSize) ; ) The problem was that I changed the
        array to (.0..0.) and didn't change the condition fro my while loop
        ooppss!  :-)


Thanks to all who helped!,

tom

THOMAS E. JENKINS, JR.

  PROGRAMMER, UNIVERSITY OF SOUTH CAROLINA
    BITNET, C0361 AT UNIVSCVM.BITNET
     INTERNET C0361 AT UNIVSCVM.CSD.SCAROLINA.EDU