paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added overloaded version of SetWideStringManager without old parameter

Browse Source
This commit is contained in:
michael 2003-11-29 17:27:05 +00:00
parent 89d4ca293b
commit 2f103d8153
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/systemh.inc
View File

@ -538,6 +538,7 @@ Type
end;
Procedure GetWideStringManager (Var Manager : TWideStringManager);
Procedure SetWideStringManager (Const New : TWideStringManager);
Procedure SetWideStringManager (Const New : TWideStringManager; Var Old: TWideStringManager);
{$endif HASWIDESTRING}
@ -712,7 +713,10 @@ const
{
$Log$
Revision 1.79 2003-11-28 20:36:13 michael
Revision 1.80 2003-11-29 17:27:05 michael
+ Added overloaded version of SetWideStringManager without old parameter
Revision 1.79 2003/11/28 20:36:13 michael
+ Added WideStringManager
Revision 1.78 2003/11/15 19:01:27 florian

11
rtl/inc/wstrings.inc
View File

@ -100,6 +100,12 @@ Procedure SetWideStringManager (Const New : TWideStringManager; Var Old: TWideSt
begin
GetWideStringManager(Old);
SetWideStringManager(New);
end;
Procedure SetWideStringManager (Const New : TWideStringManager);
begin
Wide2AnsiMoveProc:=New.Wide2AnsiMove;
Ansi2WideMoveProc:=New.Ansi2WideMove;
end;
@ -1005,7 +1011,10 @@ end;
{
$Log$
Revision 1.33 2003-11-28 20:36:13 michael
Revision 1.34 2003-11-29 17:27:05 michael
+ Added overloaded version of SetWideStringManager without old parameter
Revision 1.33 2003/11/28 20:36:13 michael
+ Added WideStringManager
Revision 1.32 2003/11/05 15:33:51 florian