testlongstrings.out

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

unit TestLongStrings;


{ AFS 29 March 2000
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

 This unit tests long strings and strings containing ''
}


interface

var
  gsGoose:  string = 'Quote''Quote''My quote';
  gsGander: string = '''''''';


{ this is how you set up a long string if you want your formatting to look at all decent! }
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.