Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Issue 107: RegisterPublishedProperties can't support tkUString type in D2009 and UP

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@215 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
ck 2010-03-08 15:24:06 +00:00
parent 56908dff7e
commit 1356caab72
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/uPSCompiler.pas
View File

@ -14840,7 +14840,7 @@ begin
GetPropInfos(fclass.ClassInfo, p); GetPropInfos(fclass.ClassInfo, p);
for i := Count -1 downto 0 do for i := Count -1 downto 0 do
begin begin
if p^[i]^.PropType^.Kind in [tkLString, tkInteger, tkChar, tkEnumeration, tkFloat, tkString, tkSet, tkClass, tkMethod{$IFNDEF PS_NOWIDESTRING}, tkWString{$ENDIF}] then if p^[i]^.PropType^.Kind in [tkLString, tkInteger, tkChar, tkEnumeration, tkFloat, tkString, tkSet, tkClass, tkMethod{$IFNDEF PS_NOWIDESTRING}, tkWString{$ENDIF}, tkUString] then
begin begin
if (p^[i]^.GetProc <> nil) then if (p^[i]^.GetProc <> nil) then
begin begin

4
Source/uPSRuntime.pas
View File

@ -1537,7 +1537,9 @@ begin
tkVariant: begin Result := '[Variant]'; exit; end; tkVariant: begin Result := '[Variant]'; exit; end;
{$IFDEF DELPHI6UP} {$IFDEF DELPHI6UP}
{$IFNDEF PS_NOWIDESTRING} {$IFNDEF PS_NOWIDESTRING}
tkWString: begin Result := ''''+tbtString(GetWideStrProp(Instance, pp))+''; end; {$ENDIF} tkWString: begin Result := ''''+tbtString(GetWideStrProp(Instance, pp))+''; end;
tkUString: begin Result := ''''+tbtUnicodeString(GetUnicodeStrProp(Instance, pp))+''; end;
{$ENDIF}
{$ENDIF} {$ENDIF}
else begin Result := '[Unknown]'; exit; end; else begin Result := '[Unknown]'; exit; end;
end; end;