[fpc-pascal] Get value of PPChar ?

[fredvs]

Free Pascal - General mailing list wrote
> resu := mpg123_icy(ahandle, theicytag);
> if (resu = 0) and Assigned(theicytag) and Assigned(theicytag^)
> then writeln(theicytag^);

Hello and thanks for answer.

Indeed, that way no more crash but also nothing from  writeln(theicytag^).

I did a check with this:

resu := mpg123_icy(ahandle, theicytag);

if (resu = 0) then writeln('resu = ' + inttostr(resu)); ---> OK

if Assigned(theicytag) then writeln('theicytag = assigned')
else writeln('theicytag NOT assigned') ; ---> theicytag NOT assigned

if Assigned(theicytag^) then writeln('theicytag^ = assigned')
else writeln('theicytag^ NOT assigned') ; ---> raise exception + crash

?

Fre;D




-----
Many thanks ;-)
--
View this message in context: http://free-pascal-general.1045716.n5.nabble.com/Get-value-of-PPChar-tp5728277p5728280.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.