testlongstrings.obs

来自「格式化源码的最新板」· OBS 代码 · 共 7 行

unit testlongstrings;interface var gsgoose:string='Quote''Quote''My quote';gsgander
:string='''''''';const therightway='Fnord Fnord Fnord Fnord Fnord Fnord Fnord '+'Fnord Fnord Fnord Fnord Fnord Fnord Fnord'
+'Fnord Fnord Fnord Fnord Fnord Fnord Fnord'+'Fnord Fnord Fnord Fnord Fnord Fnord Fnord'
;const thewrongway='Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord'
;implementation procedure longstring;var lsduck:string;begin lsduck:='duck esfdfsdfsdfsdfsddddddddddddddddddds werf sdf sdf sd f sdf '' dsfsdfsdfsdfsdf sd fsd f sd f sdf sd f sdf s'
;end;type trecked=record s1:string;s2:string;end;const rec:trecked=(s1:'rec sfsdfsdfsdfsdfsdfsdfsdfffffffffffffffffffffffffffffffffffdffffffffffffdasfds sfsdf ff'
;s2:' dasfsdfssdrfdf ');end.