From 62d59b10e9a5ad070b602ec33f2f3b748678fc04 Mon Sep 17 00:00:00 2001 From: graemeg Date: Wed, 12 Nov 2008 13:40:29 +0000 Subject: * new fpgCharAt() function * Renamed EditXXX's DecimalSeparator and ThousandSeparatar properties to not conflict with the global variables in SysUtils. * Added EditCurrency, EditFloat and EditInteger to the UI Designer palette. I still have issues with TfpgChar type, so you have to use the 'unknow' memo in Object Inspector. * Minor changes in edits demo to compile again after the above changes. --- src/corelib/fpg_stringutils.pas | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'src/corelib') diff --git a/src/corelib/fpg_stringutils.pas b/src/corelib/fpg_stringutils.pas index 30ddff14..f5e6f817 100644 --- a/src/corelib/fpg_stringutils.pas +++ b/src/corelib/fpg_stringutils.pas @@ -23,7 +23,7 @@ unit fpg_stringutils; interface uses - Classes, SysUtils; + Classes, SysUtils, fpg_base; function UTF8CharacterLength(p: PChar): integer; @@ -45,6 +45,8 @@ function Pos8(const SearchForText, SearchInText: string): integer; procedure Delete8(var S: string; Index, Size: integer); procedure Insert8(const Source: string; var S: string; Index: integer); +function fpgCharAt(const s: TfpgString; Index: integer): TfpgChar; + implementation @@ -310,6 +312,11 @@ begin UTF8Insert(Source, S, Index); end; +function fpgCharAt(const s: TfpgString; Index: integer): TfpgChar; +begin + Result := UTF8Copy(s, Index, 1); +end; + end. -- cgit v1.2.3-70-g09d2