Uses
   dxutil_environment;

const
   Str1='This is a constant string';

ResourceString
   Str2='This is a resource string';

Var
   Loop:Longint;
   StartTime:Comp;
   S:String;

Begin
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do S:=Str1;
   System.Writeln('Constant: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do S:=Str2;
   System.Writeln('Resource: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do S:='This is an inline string';
   System.Writeln('inline: ',Trunc(Trunc(TimeCounter)-StartTime));
end.