delphi真的没有办法了吗?送分!

Question

试试这个应该可以的.在DELPHI中如用一般的CHAR它都是默认的ANSICHAR的单个字节不是UNICODE你先吧字符变量设为如下例子:
var
   unicodechar:widechar;
begin
     unicodechar:=chr(200);
     showmessage(unicodechar);//看看显示出来了吧!
end;
你认为对的话就给分,不要耍赖哦,呵呵.....

Answer 1

chr()支持129。。255的字符，但这只是半个汉字，取得半个汉字的方法为打开英文WORD，用光标键去掉半个汉字即可。

Answer 2

mscomm.ouput = '12345' + #129#255;
不久行了吗

Answer 3

procedure TFrmTransfer.Button1Click(Sender: TObject);
var
Buffer: OleVariant;
begin
MSComm1.PortOpen := True;
try
MSComm2.PortOpen := True;
try
Buffer := Edit1.Text;
MSComm1.Output := Buffer;
Buffer := MSComm2.Input;
Edit2.Text := Buffer;
finally
MSComm2.PortOpen := False;
end;
finally
MSComm1.PortOpen := False;
end;
end;

Answer 4

delphi字符有16进制输入法，是＃开头，还是什么，我不记得了，查察看。
最后没有办法时，用强类型转化，往里面写就是，例如，转换成整形，当然用指针转换了，delphi中支持位操作，应该没有问题。

Answer 5

to all
  可是#后面的数字是动态生成的,不能直接给定,又如何用加的方法呢?
  mscomm.output在vb中可以是.output=data{data是byte数组,可以直接发二进制数据},难道
delphi却不能实现吗,我设置了.inputmode:=binery,也没有谁能解决分数奉献!

Answer 6

Ord(Chr('文字'[1]))
Ord(Chr('文字'[2]))
Ord(Chr('文字'[3]))
Ord(Chr('文字'[4]))