paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 06:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Add a trivial function StringOfCodePoint to unit LazUnicode.

Browse Source 
git-svn-id: trunk@55701 -
This commit is contained in:
juha 2017-08-19 16:03:23 +00:00
parent 8ab9a32b8e
commit 6169b87086
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazutils/lazunicode.pas
View File

@ -50,6 +50,8 @@ uses
function UnicodeToWinCP(const s: string): AnsiString; function UnicodeToWinCP(const s: string): AnsiString;
function WinCPToUnicode(const s: AnsiString): string; function WinCPToUnicode(const s: AnsiString): string;
function StringOfCodePoint(ACodePoint: String; N: Integer): String;
type type
// Base class for CodePoint and Character enumerators. // Base class for CodePoint and Character enumerators.
TUnicodeEnumeratorBase = class TUnicodeEnumeratorBase = class
@ -222,6 +224,16 @@ begin
{$ENDIF} {$ENDIF}
end; end;
function StringOfCodePoint(ACodePoint: String; N: Integer): String;
// Like StringOfChar
var
i: Integer;
begin
Result := '';
for i := 1 to N do
Result := Result + ACodePoint;
end;
{ TUnicodeEnumeratorBase } { TUnicodeEnumeratorBase }
constructor TUnicodeEnumeratorBase.Create(const A: String); constructor TUnicodeEnumeratorBase.Create(const A: String);