[Lazarus] WrapText length limit?

[Michael Van Canneyt]

That may be so, but then we would have to put the Borland copyright notice
in all source files that use this. This is not possible/allowed.

Michael.

On Thu, 7 Oct 2010, Antônio wrote:

> 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
>>
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>