Вывод текста из консольной программы в CMD терминал

VVSite

Функция на Free Pascal для корректного вывода русского текста в CMD терминал.

function encUTF8(text: string): string;
var
  Bytes: TBytes;
  RawStr: RawByteString;
  Encoding: TEncoding;
begin
  RawStr := RawByteString(text);
  SetLength(Bytes, Length(RawStr));
  Move(RawStr[1], Bytes[0], Length(RawStr));
  Encoding := TEncoding.UTF8;
  Result := Encoding.GetString(Bytes);
end;

Использование:

Writeln(encUTF8('Нажмите Enter для выхода...'));