[lazarus] Patches to Shanes files

[Curtis White]

It almost looks like you are using AnsiStrings. That would explain why your
second way showed a blank for the length. You can't read the length of an
AnsiString that way. Do you have {$H} defined at the top of the unit?  If so,
then I you are probably using AnsiStrings.

I just had a similar problem working with the Simple IDE.  There are a lot of
calls to gtk methods and many of them pass strings as parameters (actually
pgchar which gets passed as 'a string'). When I added {$H} to the top of the
unit to use AnsiStrings, so I could do a PChar(workStr), I got all kinds of
errors. When I removed the {$H}, the errors went away and it works fine.
Apparently you can pass a ShortString in place of a pgchar but not an
AnsiString.

This may not be related at all to the problem you are having or you may have
already looked at this, but I just had the problem and thought I would put it
out there just in case it might help.


Thanks...Curtis

On 08-Jul-99 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
> 
> 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

----------------------------------
Curtis White
Curtis White <osiriz at teleport.com>
http://www.teleport.com/~osiriz/
----------------------------------