[Lazarus] WrapText length limit?
Antônio
antoniog12345 at gmail.com
Thu Oct 7 16:20:26 CEST 2010
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
>
More information about the Lazarus
mailing list