[lazarus] Patches to Shanes files

[Michael Van Canneyt]

On Thu, 8 Jul 1999, Shane Miller 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


??? You should do a

  writeln ('Length of signal is : ',Ord(Signal[0]));

You won't see a control character on the screen on linux.
the above will print the length as a readable number.
Mind you, it won't work with ansistrings, there S[0] is
not available (the compiler will give an error)

Michael.
> 
> 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
>