paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 20:29:23 +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; end;
Procedure GetWideStringManager (Var Manager : TWideStringManager); Procedure GetWideStringManager (Var Manager : TWideStringManager);
Procedure SetWideStringManager (Const New : TWideStringManager);
Procedure SetWideStringManager (Const New : TWideStringManager; Var Old: TWideStringManager); Procedure SetWideStringManager (Const New : TWideStringManager; Var Old: TWideStringManager);
{$endif HASWIDESTRING} {$endif HASWIDESTRING}
@ -712,7 +713,10 @@ const
{ {
$Log$ $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 + Added WideStringManager
Revision 1.78 2003/11/15 19:01:27 florian 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 begin
GetWideStringManager(Old); GetWideStringManager(Old);
SetWideStringManager(New);
end;
Procedure SetWideStringManager (Const New : TWideStringManager);
begin
Wide2AnsiMoveProc:=New.Wide2AnsiMove; Wide2AnsiMoveProc:=New.Wide2AnsiMove;
Ansi2WideMoveProc:=New.Ansi2WideMove; Ansi2WideMoveProc:=New.Ansi2WideMove;
end; end;
@ -1005,7 +1011,10 @@ end;
{ {
$Log$ $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 + Added WideStringManager
Revision 1.32 2003/11/05 15:33:51 florian Revision 1.32 2003/11/05 15:33:51 florian