Строки с кракозябрами [РЕШЕНО]

[sign]

Lazarus 0.9.31
FPC 2.4.4
WIN XP

В отдельном модуле прописано

Код: Выделить всё

const
  CMonths: Array [1 .. 12] of String[16] = ('Январь', 'Февраль', 'Март', 'Апрель', 'Май', 'Июнь', 'Июль', 'Август',
    'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь');


В другом модуле используется:

Код: Выделить всё

procedure TfStart.vsMonthsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
var Data: PvsMonths;
begin
  Data := Sender.GetNodeData(Node);
  case Column of
    0: CellText := CMonths[Data^.Md];
    1: CellText := Data^.Year;
    2: CellText := Data^.BallN;
    3: CellText := Data^.BallV;
    4: CellText := Data^.BallC;
  end;
end;


Получаем кракозябры.

M1.PNG

Переношу объявление CMonth в тот же модуль, где этот массив используется, в секцию implementation, получаю нормальный текст

M3.PNG

Что за беда и как с ней бороться?

[v-t-l]

А кодировка отдельного модуля какая? (Правой кнопкой в редакторе исходного кода "Параметры файла > Кодировка")

[sign]

Спасибо, про это я даже не догадывался, что разные у меня кодировки.