[Lazarus] If Assigned ()

[ajv]

Dear Mattias Gärtner,

Thanks your your answer.
I made the test project myself (which I should have done first), and 
indeed everything seems OK.
Conclusion, it must be in the code of my application.
I go into it.

Best regards, Anthony Vogelaar

==================================================
> Zitat von ajv <ajv at vogelaar-electronics.com>:
>
>> Hello,
>>
>> How can I test if a "Procedure Of Object" is assigned?
>>
>> example: (mode delphi under Linux)
>> Var PO : Procedure Of Object;
>> PO := Nil;   // OK
>> If Assigned (PO) Then Writeln ('This should not be printed');     // 
>> It is printed !!
>
> It is not printed here.
>
> Please provide a complete example.
>
>> Is this a bug?
>
> Probably in your code.
>
>
> Mattias
>
>
>
> -- 
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>