blob: 852391cf793a5f8b075838ae88b1431b83e2a54d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
{ Source provided for Free Pascal Bug Report 2306 }
{ Submitted by "Sergey Kosarevsky" on 2003-01-03 }
{ e-mail: netsurfer@au.ru }
{$H-}
Const LONG_STR_SIZE=4096;
Type tLongStr=Object // try to change this
// to Record
LStr:Array[0..LONG_STR_SIZE] Of Char;
LLength:Longint;
End;
Operator := (S:String) R:tLongStr;
Begin
R.LLength:=Length(S);
Move(S[1],R.LStr[1],Length(S));
End;
Var T:tLongStr;
Begin
T:='Hello';
if (T.LLength<>5) or
(T.LStr[1]<>'H') or
(T.LStr[5]<>'o') then
begin
writeln('Error!');
halt(1);
end;
End.
|
