Changes in new versions / Delphi 12 Athens

// *** before: ***
// a literal could not cross a line, so any embedded text was glued
// together by hand, with quotes doubled and line breaks spelled out
const
  Query =
    'select id, name' + sLineBreak +
    'from people' + sLineBreak +
    'where name = ''Anna''' + sLineBreak +
    'order by name';

// *** in version 12: ***
const
  Query =
    '''
    select id, name
    from people
    where name = 'Anna'
    order by name
    ''';

// the literal opens with three apostrophes and a line break, closes with
// three apostrophes on a line of their own, and quotes inside need no
// doubling. Handy for SQL, JSON, HTML and XML kept in the source