paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-03 17:26:05 +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);
begin
PDest:=PWideChar(WideString(PSource));
WideString(Pointer(PDest)):=WideString(Pointer(PSource));
end;
{ ---------------------------------------------------------------------
@ -710,7 +710,10 @@ end;
{$endif HASVARIANT}
{
$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
Revision 1.12 2005/01/08 16:19:42 florian