freepascal.ru

Есть код из ответов:

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

const { типизированные константы для русских букв }
HighChars: string = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
LowChars : string = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
function High(arg: char): char;
var i: integer;
begin
High:= arg;
if arg in ['a'..'z']
then High:= Upcase(arg)
else for i := 1 to Length(LowChars) do
if arg= LowChars[i] then begin
High:= HighChars[i];
break;
end
end;
function Low(arg: char): char;
var i: integer;
begin
Low:= arg;
if arg in ['A'..'Z']
then Low:= Char( Ord(arg) + Ord('z') - Ord('Z') )
else for i := 1 to Length(LowChars) do
if arg= HighChars[i] then begin
Low:= LowChars[i];
break;
end
end;
function HighStr(const arg: string): string;
var i: integer; s: string;
begin
s:='';
for i := 1 to Length(arg) do s:= s+ High(arg[i]);
HighStr:= s;
end;
function LowStr(const arg: string): string;
var i: integer; s: string;
begin
s:='';
for i := 1 to Length(arg) do s:= s+ Low(arg[i]);
LowStr:= s;
end;
begin
Writeln(HighStr('Pascal Паскаль 123'));
Writeln(LowStr('Pascal Паскаль 123'));
Readln;
end.

Получаю вот такой результат работы программы:

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

PASCAL ПАСКАЛЬ 123
pascal паёкаль 123

В чем подвох?

P.S. Linux Mint, fpc-2.6.2

Ariman писал(а):В чем подвох?

Под виндой проверил, всё ОК, ждём подмоги от линуксоидов.
А в текстовый файл вывод направить пробовали?

Oleg_D писал(а):А в текстовый файл вывод направить пробовали?

Попробовал. Результат тот же.

Ariman писал(а):В чем подвох?

P.S. Linux Mint, fpc-2.6.2

Ваш исходник в UTF-8, в ней пуковки кодируются так:
#$d0#$a1 - "С",
#$d1#$81 - "с",
#$d0#$81 - "ё".

Вы просматриваете строку не по символам, а побайтно; заменяете #$a1 на #$81, из #$d0#$a1 получаете #$d0#$81 вместо #$d1#$81.

Объясните, пожалуйста, неразумному, как прочитать посимвольно, а не побайтно? И какой тип использовать. Ведь char в Free Pascal исключительно 1 байт. Для строки есть UTF8String, а для символа?

Ariman писал(а):Объясните, пожалуйста, неразумному, как прочитать посимвольно, а не побайтно? И какой тип использовать. Ведь char в Free Pascal исключительно 1 байт. Для строки есть UTF8String, а для символа?

http://wiki.freepascal.org/LCL_Unicode_Support/ru
а если коротко UTF8Copy(твоя_строка,номер_нужного_символа,1)