[lazarus] Patches to Shanes files

[Shane Miller]

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