Constant Array unter Delphi 2006

[teebee]

Delphi-Quellcode:

type
  TEntity = record
              Html, Ansi : String; 
            end;

const
Entities : Array[0..10] of TEntity = (             
             (Html: 'ä'; Ansi: 'ä'),
             (Html: 'ö'; Ansi: 'ö'),
             (Html: 'ü'; Ansi: 'ü'),
             (Html: 'Ä'; Ansi: 'Ä'),
             (Html: 'Ö'; Ansi: 'Ö'),
             (Html: 'Ü'; Ansi: 'Ü'),
             (Html: '<';   Ansi: '<'),
             (Html: '>';   Ansi: '>'),
             (Html: '&amp;';  Ansi: '&'),
             (Html: '&quot;'; Ansi: '"'),
             (Html: '&apos;'; Ansi: '''')
             );

So sollte es funktionieren.
Gruß, teebee