[lazarus] Patches to Shanes files

[P Jean dit Bailleul]

At 13:21 07/07/99 -0500, you wrote:
>I display the stringvar and it has NO garbage init before OR after the
conversion, yet the newpchar does.

Perhaps you have more than one #0 character in the string, if so, fill the
string with #0 characters and then copy data into it.

>Shane
>
>
>>>> "Michael A. Hess" <mhess at miraclec.com> 07/07 1:09 PM >>>
>Shane Miller wrote:
>> 
>> I have fixed the problem with the events using a char array (sort of)
>> by changing it to a PChar.
>> 
>> Here's the problem, even using a pchar and doing..
>> 
>> newpchar := StrAlloc(Length(StringVar)+1);
>> StrPCopy(newPChar,StringVar);
>> 
>> I still get unwanted characters.  Why is this?  I'm not sure what the
>> problem is.  I thought doing it this way would work.
>
>If the StringVar has garbage data at the end it will still be there
>after the conversion to PChar.
>
>I'll give you a hand looking at this when I get home this afternoon.
>
>-- 
>==== Programming my first best destiny! ====
>
>Michael A. Hess      Miracle Concepts, Inc.
>mhess at miraclec.com   http://www.miraclec.com 
>
>_________________________________________________________________
>     To unsubscribe: mail lazarus-request at miraclec.com with
>                "unsubscribe" as the Subject
>    archives at http://www.miraclec.com/list_archives/lazarus
>
>_________________________________________________________________
>     To unsubscribe: mail lazarus-request at miraclec.com with
>                "unsubscribe" as the Subject
>    archives at http://www.miraclec.com/list_archives/lazarus
>
>


JDB

les opinions et recommandations exprimées dans ce courrier sont ceux de
l'auteur, ils ne sont pas nécessairement endossés par Agritulture et
AgroAlimentaire Canada
--------------------------------------------------------------
Philippe JEAN DIT BAILLEUL
Agriculture & AgroAlimentaire Canada - Agriculture & AgriFood Canada
Email : JeanDitBailleulP at em.agr.ca
Web : Http://res.agr.ca/swinenet/porcexpert/jeanditbailleulp
Tel : +1 (819) 565 9174 poste 251
Fax : +1 (819) 564 5507