Wenn du ohne dieses Verbrechen WRITEABLECONST
auskommen willst und DokTypStr global ist, kannst du es einfach zu einer (initialisierten) Variablen machen:
Delphi-Quellcode:
var
DokTypStr: array[TAllDokTyp] of AnsiString = ('Projekt ', 'Angebot ', 'Auftragsbestätigung ');