функция UnicodeToUTF8 в RTL ( /inc/wstrings.inc )

[Tiger]

Пытался вот тут разобраться с функцией UnicodeToUTF8 и не понял такого кода в ней:

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

       while i < SourceChars 
       do begin
           case word(Source[i]) of
           $0..$7f: inc(j);
           $80..$7ff: inc(j,2);
           else inc(j,3);
           end;
          end;
      end;

Вроде, цикл "While I", а внутри цикла меняется только J !
У меня FPC 2.0.4!
Естественно, программа зависает, исполняя эту функцию.

[Sergei I. Gorelkin]

Чего тут разбираться - баг он и есть баг. Отправил в трекер за номером 9284 вместе с, так сказать, патчем
Странно, что со времен 2.0.4 на него никто не наткнулся...

[bw]

Может в тихую, для себя, исправляли. Я иногда так делаю, правда не под FP.

..bw

[Cheb]

Вероятно, все используют для этого Utf8Encode(), и вышеуказанная просто никому ни разу не понадобилась?