Type
Line:Array[0..127] of Char;
Var
TmpBugStr:Line;
{later in the code}
Const
TempString : PChar = TmpBugStr;
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20181001/fbfd917b/attachment.html>