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

#238. win64 problem with string

Browse Source
This commit is contained in:
evgeny-k 2020-09-08 15:59:10 +03:00
parent 957de21fe8
commit 41ed958b61
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/InvokeCall.inc
View File

@ -51,7 +51,7 @@ begin
btWidestring,
btUnicodestring,
{$ENDIF}
btString: Arg := TValue.From<AnsiString>(pstring(fvar.dta)^);
btString: Arg := TValue.From<String>(pstring(fvar.dta)^);
btU8, btS8: Arg := TValue.From<Byte>(pbyte(fvar.dta)^);
btU16, BtS16: Arg := TValue.From<Word>(pword(fvar.dta)^);
btU32, btS32: Arg := TValue.From<Cardinal>(pCardinal(fvar.dta)^);