1
{ Source provided for Free Pascal Bug Report 2306 }
2
{ Submitted by "Sergey Kosarevsky" on 2003-01-03 }
3
{ e-mail: netsurfer@au.ru }
6
Const LONG_STR_SIZE=4096;
8
Type tLongStr=Object // try to change this
10
LStr:Array[0..LONG_STR_SIZE] Of Char;
15
Operator := (S:String) R:tLongStr;
18
Move(S[1],R.LStr[1],Length(S));