Please do not post copyrighted code here. Bart
On 10/7/10, Antônio <[email protected]> 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 > [email protected] > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
