[Lazarus] WrapText length limit?

[Antônio]

Delphi / Kylix Cross-Platform Runtime Library                           }
{ System Unit                                                             }
{                                                                         }
{ Copyright (c) 1988-2002 Borland Software Corporation                    }
{                                                                         }
{  This file may be distributed and/or modified under the terms of the    }
{  GNU General Public License version 2 as published by the Free Software }
{  Foundation and appearing at http://www.borland.com/kylix/gpl.html.

Antônio

2010/10/7 Bart <bartjunk64 at gmail.com>:
> 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
>>
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>