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>