[Lazarus] WrapText length limit?

[Bart]

Please do not post copyrighted code here.

Bart

On 10/7/10, Antônio <antoniog12345 at gmail.com> wrote:
> function CharLength(const S: string; Index: Integer): Integer;
> begin
>   Result := 1;
>   assert((Index > 0) and (Index <= Length(S)));
>   if SysLocale.FarEast and (S[Index] in LeadBytes) then
>     Result := StrCharLength(PChar(S) + Index - 1);
> end;
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>