[Lazarus] Encoding agnostic functions for codepoints + an iterator

Bart bartjunk64 at gmail.com
Mon Jun 20 14:14:17 CEST 2016

  i := CodePointLength(s);             // Should return 26.
  writeln('Testing CodePointLength. Result = ', i);

Using UnicodeString + UTF-16
Sizeof(Char) = 2
Testing CodePointLength. Result = 30

Mind you that on my system the Eyes, Wineglass and Heart are
unreadible inside Lazarus IDE (they are presented as an outline of a
square block).

Win7 32 bit, fpc 3.0.0 Lazarus trunk.

A tip: put the -dUseUtf16 in a seperate buildmode?


More information about the Lazarus mailing list