导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2019/3/22 16:11:44
标题:
加入我的收藏
楼主:
请问这个D7下能运行的要转到XE下Input要如何处理 procedure TForm1.RS1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); var I: Integer; S: string; Input: array of byte; begin Input := Buffer; for I:=0 to BufferLength-1 do begin S := S + Chr(Input[I]); end; end; 另,哪里有资料是关于XE下数据类型的?
----------------------------------------------
只会简单使用,并未精通深入
作者:
2019/3/22 17:37:08
1楼:
你到底要问啥?
----------------------------------------------
--
作者:
glwang (glwang)
★☆☆☆☆
-
盒子活跃会员
2019/3/23 8:45:51
2楼:
楼主直接说遇到什么问题就行
----------------------------------------------
作者:
2019/3/25 10:17:23
3楼:
搞明白了 var RcvData:Array[0..1024] of byte; move(buffer^,pchar(@RcvData)^,BufferLength);
----------------------------------------------
只会简单使用,并未精通深入
作者:
2019/3/25 10:28:17
4楼:
好好看书。这种基础问题。我们不是师范专业的,说不清楚。
----------------------------------------------
(C)(P)Flying Wang
作者:
2019/3/25 10:33:51
5楼:
wang_80919 (Flying Wang) 谢谢鞭策,良药苦口,习惯了你的风格,那推荐本书呗
----------------------------------------------
只会简单使用,并未精通深入
作者:
2019/3/25 11:02:45
6楼:
procedure TForm1.RS1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); var RcvData: TBytes; begin SetLength(RcvData, BufferLength); Move(Buffer^, RcvData[0], BufferLength); end;
----------------------------------------------
-
作者:
2019/3/25 12:15:30
7楼:
是本书就行。 你这是基础知识 比如 内存 数组 字符串类型 等。 Unicode 只是 字符串类型中的一个知识点。 你缺的是整套知识。
----------------------------------------------
(C)(P)Flying Wang