mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 00:28:24 +02:00
34 lines
616 B
ObjectPascal
34 lines
616 B
ObjectPascal
{ 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.
|