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

Remove warnings

Browse Source 
Implicit conversion from ansi to unicode
This commit is contained in:
velter 2014-04-08 17:33:30 +02:00
parent af0f3e069f
commit db15d67e76
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/uPSRuntime.pas
View File

@ -3585,10 +3585,10 @@ begin
case aType.BaseType of
btU8: Result := chr(tbtu8(src^));
btU16: Result := widechar(src^);
btChar: Result := tbtchar(Src^);
btPchar: Result := pansichar(src^);
btChar: Result := tbtunicodestring(tbtchar(Src^));
btPchar: Result := tbtunicodestring(pansichar(src^));
btWideChar: Result := tbtwidechar(Src^);
btString: Result := tbtstring(src^);
btString: Result := tbtunicodestring(tbtstring(src^));
btWideString: Result := tbtwidestring(src^);
btVariant: Result := Variant(src^);
btUnicodeString: result := tbtUnicodeString(src^);