paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 20:46:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* olestring copying fixed

Browse Source
This commit is contained in:
florian 2005-01-16 16:15:30 +00:00
parent f20af0b344
commit 8741afb6cc
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/varutils.inc
View File

@ -39,7 +39,7 @@ end;
Procedure CopyAsWideString (Var PDest : PWideChar; PSource : PWideChar); Procedure CopyAsWideString (Var PDest : PWideChar; PSource : PWideChar);
begin begin
PDest:=PWideChar(WideString(PSource)); WideString(Pointer(PDest)):=WideString(Pointer(PSource));
end; end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
@ -710,7 +710,10 @@ end;
{$endif HASVARIANT} {$endif HASVARIANT}
{ {
$Log$ $Log$
Revision 1.13 2005-01-15 18:47:26 florian Revision 1.14 2005-01-16 16:15:30 florian
* olestring copying fixed
Revision 1.13 2005/01/15 18:47:26 florian
* several variant init./final. stuff fixed * several variant init./final. stuff fixed
Revision 1.12 2005/01/08 16:19:42 florian Revision 1.12 2005/01/08 16:19:42 florian