Количество символов в Memo

[Dark Ichigo]

Есть форма. При выборе combobox или заполнения edit в Memo-поле отражается текст. Мне необходимо посчитать количество символов в это тексте вместе с пробелами.

Делаю так:

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

kolznakov.Caption := FloatToStr(Length(resultat.Text));     

В итоге, например, в memo-поле отражается:

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

Петрушка, чеснок

А количество символов при этом равно не 16 (как требуется), а 30 (!). Как я понял, количество букв множится на два, а знаки и пробелы считаются правильно. То есть Петрушка=8 знаков, чеснок=6 знаков.

8+6=14.

14*2=28.

28 + 2(пробел и запятая)=30 в итоге

Что делать? Как с этим бороться?

ps.
Замечено, что текст из списка combobox'а, который загружается с помощью LoadFromFile, считается нормально. Но я не могу использовать все поля формы с этой функцией.

Заранее спасибо!

[v-t-l]

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

olznakov.Caption := FloatToStr(Length(resultat.Text));

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

olznakov.Caption := FloatToStr(UTF8Length(resultat.Text));

[Dark Ichigo]

ругается

Identifier not found "UTF8Length"

[Павел Ишенин]

uses LCLProc

[Dark Ichigo]

добавил. теперь:

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

 kolznakov.Caption := FloatToStr(UTF8Length(resultat.Text));

Fatal: Syntax error, ")" expected but "(" found

[VirtUX]

добавил. теперь:

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

 kolznakov.Caption := FloatToStr(UTF8Length(resultat.Text));

Fatal: Syntax error, ")" expected but "(" found

Это Вы где-то забыли поставить закрывающую скобку но не в этом примере!

[Dark Ichigo]

НАШЁЛ!!! Всем спасибо!!!
У меня, нуба, была в var строчка

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

UTF8Lenght: Ansistring

Ума не приложу, когда я успел туда это тыкнуть.

У меня в Memo три строки. Как я понимаю, каждый перевод строки - это тоже символ? Всё считается точно, только на 3 символа больше.

[Mr.Smart]

У меня в Memo три строки. Как я понимаю, каждый перевод строки - это тоже символ? Всё считается точно, только на 3 символа больше.

Конечно. Более того любой код отличный от #0 является символом.

[MaxK]

Хочу добавить.
Если надо взять только часть от Combobox1.text то необходимо пользоваться функцией UTF8Copy,а не просто Copy.
Хотя это не подходит для просто Label.caption. Тут всё как обычно, без UTF8