Русские символы в Lazarus

[AlphaBlend]

Доброго дня , уважаемые знатоки Подскажите,пожалуйста, как решить проблему ( гуглы ответа не знают или плохо искала ) :
Есть строка

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

     function MyFunction:Ansistring;
     var
         StrResult:AnsiString;
         i:Cardinal;
     begin
           Str:='русские символы';
          i:=Length(Str);

                {
                     Какие-то действия  над строкой 
                }
    end;

Проблема с тем , что функция Length неправильно считает количество символов. Если строки на английском - то правильно считает. Помогите , пожалуйста, разобраться :(:(

[pupsik]

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

uses
  Lazutf8
...
utf8length...

п.с.

гуглы ответа не знают или плохо искала

- второе.

[AlphaBlend]

спасибо пребольшое )

[resident]

Помогите , пожалуйста, разобраться

Ок
Что из следующего списка вам знакомо?
"Человек произошел от обезьяны", что такое бит, что такое байт, что такое ASCII, что такое UTF8.

[AlphaBlend]

уже без Ваших ерничеств разобралась:) а pupsik-у спасибо за подсказку :)