[lazarus] Patches to Shanes files

[Shane Miller]

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

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