paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Widestring->PWidechar requires a typecast

Browse Source
This commit is contained in:
peter 2002-11-22 16:30:05 +00:00
parent bd484276cd
commit 11d5367e01
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/varutils.inc
View File

@ -33,13 +33,13 @@ end;
Procedure MakeWideString (Var P : PWideChar; W : WideString); Procedure MakeWideString (Var P : PWideChar; W : WideString);
begin begin
P:=W; P:=PWideChar(W);
end; end;
Procedure CopyAsWideString (Var PDest : PWideChar; PSource : PWideChar); Procedure CopyAsWideString (Var PDest : PWideChar; PSource : PWideChar);
begin begin
PDest:=WideString(PSource); PDest:=PWideChar(WideString(PSource));
end; end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
@ -709,7 +709,10 @@ end;
{$endif HASVARIANT} {$endif HASVARIANT}
{ {
$Log$ $Log$
Revision 1.9 2002-10-11 12:21:55 florian Revision 1.10 2002-11-22 16:30:05 peter
* Widestring->PWidechar requires a typecast
Revision 1.9 2002/10/11 12:21:55 florian
* fixes for new widestring handling * fixes for new widestring handling
Revision 1.8 2002/09/07 16:01:23 peter Revision 1.8 2002/09/07 16:01:23 peter