[lazarus] Patches to Shanes files

[P Jean dit Bailleul]

At 09:53 08/07/99 -0500, you wrote:
>I did a 
>writeln('Length of signal is '+Inttostr(Length(Signal)));
>and that came out correctly.
>
>So, what I did was this.  I did a 
>Writeln('Length of signal is '+Signal[0]);
>and it always came out with 
>Length of signal is

try in the debugger to see the Signal[0]. if the length is 10, then it
*should* be #10

>Not sure how else to look at it....
>
>Shane
>
>
>>>> P Jean dit Bailleul <jeanditbailleulp at em.agr.ca> 07/08 9:20 AM >>>
>It seems that it is a problem a string length, not a problem of PChar. Can
>you check the real length of the string ([0] if it's short string). I don't
>know how FPC work with long string, in Delphi it's stored in [-1..0], but
>you can't read it directly.
>
>At 13:57 07/07/99 -0500, you wrote:
>>Didn't work.
>>I do this now.
>>
>>
>>procedure TCustomForm.Create(aowner : TComponent);
>>begin
>>stuff
>>
>>signal := #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;
>>Signal := 'clicked';
>>InterfaceObject.SetCallBack(signal,Self);
>>end;
>>
>>and when it copies it from the string it received in the parameters to a
>pchar I still get the same crap.  Though sometime's the PChar is equal to
>'clicke' instead of 'clicked'.  After I set that one I set a few others and
>they are all screwed up.
>>
>>Shane
>>
>>
>>end;
>>
>>
>>>>> P Jean dit Bailleul <jeanditbailleulp at em.agr.ca> 07/07 1:29 PM >>>
>>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
>>
>>_________________________________________________________________
>>     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
>
>_________________________________________________________________
>     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