Функция на 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; Использование:… ЧитатьВывод текста из консольной программы в CMD терминал