Как сделать вывод строк с кириллицей в Free Pascal?

Question

[Иван Тищенко]

Необходимо по учебе написать обучающую программу, меню которой должно содержать кириллицу и отображать в графическом режиме.
Используются модули PTCCRT, Dos и PTCGraph. Кодировку файла с исходным кодом менял (ANSI/CP866/Windows 1251/UTF-8).
ОС: Archlinux
Версия FPC - 2.6.
Исходный код пишу в Geany.

Каким способом можно добавить кириллицу в исходный код?

Comments

[Иван Тищенко]

Program pr0;
Uses
    PTCCrt,
    Dos,
    PTCGraph;
Const
    DefBkColor  = 7;
    DefFont     = 7;
    DefColor    = 8;
    ChoiceColor = 1;
Var
    Drv, Mode, Variant : integer;
    OptionName : array [1..10] of WideString;
    Step, OptionQuants : byte;
    BreakFlag : boolean;
Procedure ReDraw(ActiveOption : ShortInt);
Begin
    SetBkColor(DefBkColor);
    SetTextStyle(DefFont, 0, 3);
    for Step := 1 to OptionQuants do
    Begin
        if (Step = ActiveOption) then SetColor (ChoiceColor);
        OutTextXY(
            Round(GetMaxX / 2) - Round(TextWidth(OptionName[Step]) / 2),
            Round(GetMaxY / 2) + TextHeight(OptionName[Step]) * (Step - Round(OptionQuants / 2) + 1),
            OptionName[Step]
            );
        if (Step = ActiveOption) then SetColor(DefColor);
        End;
    End;
Function CallMenu : shortint;
Var
    ActiveOption : ShortInt;
    Key, QuitKey : Char;
Begin
    ActiveOption := 1;
        repeat
            ReDraw(ActiveOption);
            Key := ReadKey;
            Case Key of
                #72 : dec(ActiveOption);
                #80 : inc(ActiveOption);
                #27 : CloseGraph;
                End;
            if (ActiveOption < 1) then ActiveOption := OptionQuants;
            if (ActiveOption > OptionQuants) then ActiveOption := 1;
            Until Key = #13;
    CallMenu := ActiveOption;
    End;
Procedure ShowLesson(ActiveOption : ShortInt);
Var
    Part : String;
    PartQuants : integer;
    Key : char;
Begin
    ClearDevice;
    str(ActiveOption, Part);
    Part := 'selected #' + Part;
    OutText(Part);
    while NOT ((Key = #13) OR (Key = #81)) do
        Begin
            Key := Readkey;
            if Key = #81 then BreakFlag := True;
                End;
    ClearDevice;
    End;
Begin
    Drv  := VGA;
    Mode := 2;
    InitGraph(Drv, Mode, '');
    OptionQuants := 5;
    OptionName[1] := 'Выбрать лекцию №';
    OptionName[2] := 'Открыть самую объемную лекцию';
    OptionName[3] := 'Показать справку';
    OptionName[4] := 'Показать лучший результат';
    OptionName[5] := 'Выйти';
    BreakFlag := false;
    Repeat
        ShowLesson(CallMenu);
        Until BreakFlag = true;
    CloseGraph;
end.

[Иван Тищенко]

Остановился на этом этапе. При изменении типа переменной - кириллицу по прежнему не отображает.

Answer 1

[v_prom]

В Free Pascal могут использоваться два типа символов, из которых составляются строки: одно- и двух-байтные. Для первых есть тип Char (он же — AnsiChar), для вторых — WideChar. И соответственно: string, AnsiString, WideString, PChar и PWideChar. Таким образом, мы можем использовать одно- и двух-байтные кодировки, причем как ограниченные, так и с переменным объемом символа, поскольку нулевой символ, имеющий специальное значение, везде одинаков.

Answer 2

[v_prom]

самый простой вариант использовать Lazarus, там все должно отображаться корректно..

Comments

[Иван Тищенко]

При первой возможности попробую, а пока - пришлось ставить DosBox.