Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Public Function GetY(Str As String) As Long
Dim BytUnicode() As Byte
Dim lngUnicode As Long BytUnicode = Str
CopyMemory ByVal VarPtr(lngUnicode), BytUnicode(0), 2 GetY = lngUnicodeEnd Function
Dim BytUnicode() As Byte
Dim lngUnicode As Long BytUnicode = Str
CopyMemory ByVal VarPtr(lngUnicode), BytUnicode(0), 2 GetY = lngUnicodeEnd Function
解决方案 »
- delphi 6 升级到 Delphi XE
- 怎样使对象的数据保存到数据库里面才合理
- 关于活动桌面,为什么一刷新窗体就不见了?晕。。。
- 请大家帮忙注释代码~~
- 组件
- 如何把listview中的列项内容全读出来?怎么老没人回答呀?
- 请教关于Windows程序设计的几个基本问题!(急)
- 急?????在FastReport中如何用指定的打印机打印?
- 控件的初始化事件中能不能访问数据库? 我这边总是 AV. 具体情况如下所述:
- Mysql在删除数据时发生数据不能定位的错误,谁能解决?
- 请问Delphi编写下载文件的工具,如何实现"加载条"?
- 我们公司也被告DELPHI侵权了,呵呵,不知道他哪里找到的信息
Delphi本身生命了Copymemory并且还有move等一大批拷贝内存的函数.
并且他这个函数根本用不着翻译得那么复杂.所作的不过就是翻译Unicode字符串的前两个字节(也就是Unicode字符串第一个字符)到整数的操作.
function GetY(Str : WideString):WORD;
begin
Result := WORD(str[1]);
end;