Непонятен принцип работы со строкой

[D4N1K]

Доброго времени суток!
Столкнулся со странным для меня поведением простого кода: программа считывает строку, затем выводит каждый символ строки и его код. Странность в том, что первый раз выводится не то, что я ожидал(см скриншот). Все последующие строки обрабатывает правильно. Проблема наблюдается только с кириллицей. Для работы пока не горит, но любопытно, из-за чего так происходит
Среда RAD Studio XE3
Windows 7 Ult. x64

program task;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils;
var
  i : Integer;
  symb : String;
begin
    while true do
    begin
      readln(symb);
      for i := 1 to length(symb) do
        writeln(i,' ',symb[i],' - ',ord(symb[i]));
      symb:='';
    end;
end.

[Stilet]

Это не проблема. Просто ты используешь Юникод для строк.
String замени на AnsiString - должно получить однобайтовые коды.

[s-andriano]

А вот я, честно говоря, не понял.
Что юникод - видно по значениям кодов символов, а вот почему первый проход отличается от остальных?

С точки зрения кода первый проход отличается отсутствием

symb:='';

но как это может сказаться?

[D4N1K]

program task;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils;
var
  i : Integer;
  symb : AnsiString;
begin
    while true do
    begin
      symb:='';
      readln(symb);
      for i := 1 to length(symb) do
        writeln(i,' ',symb[i],' - ',ord(symb[i]));
    end;
end.

даже если перенести обнуление в начало цикла, ничего не меняется. Заменил на AnsiString. вот результат

[Аватар]

В XE2 кстати тоже самое. Почему хз

[eval]

а если первым делом writeln сделать? не важно чего, просто пустую строку...

[Stilet]

В XE2 кстати тоже самое

Неправда. Проверил ради интереса на Лазаре и ХЕ2 - вот вывод:

абвг
1 а - 160
2 б - 1038
3 в - 1118
4 г - 1032
абвг
1 а - 160
2 б - 1038
3 в - 1118
4 г - 1032
абвг
1 а - 160
2 б - 1038
3 в - 1118
4 г - 1032

Это без Ansi
Максимум что тут не так: System.SysUtils.
Убрать System

[Аватар]

Неправда

XE2. Один вариант для AnsiString, второй для String
Удаление System.SysUtils целиком и System не помогает

[Stilet]

Значит от локали операционки есть какая-то зависимость... Или с самим Делфи что-то.
У меня код этот не косячит.

[GunSmoker]

Скорей всего, баг в XE3, у них OEM-кодировка не сразу инициализируется, а после первого ввода-вывода. На writeln они поправили, а на readln, видать забыли. В XE2 и ниже должно работать OK, ибо там надо ручками делать конвертацию из-в OEM.