git-svn-id: http://code.remobjects.com/svn/pascalscript@114 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2009-03-20 08:40:05 +00:00
parent 077acc238b
commit 3519661c2f

View File

@ -10400,7 +10400,7 @@ begin
{$IFNDEF PS_NOWIDESTRING}
{$IFNDEF DELPHI2009UP}btUnicodeString,{$ENDIF}
btWideString: SetWideStrProp(TObject(FSelf), P.Ext1, tbtWidestring(n.dta^));
{$IFNDEF DELPHI2009UP}
{$IFDEF DELPHI2009UP}
btUnicodeString: SetUnicodeStrProp(TObject(FSelf), P.Ext1, tbtUnicodestring(n.dta^));
{$ENDIF}
{$ENDIF}