问两个问题。十六进制和COM的控制。

Question

1、怎样把一个string（包括中英文）转换成十六进制后转成string。2、如何向com口发送字符。

Answer 1

var
    s : string;
    i : integer;
    HexString : String;
begin
    s := '十六进制';
    for i := 0 to length(s) - 1 do
    begin
        HexString := HexString + IntToHex(Ord(s[i]),2);
    end;
    ShowMessage(HexString);
end;
不过这样还原可能会比较麻烦，widechar?

Answer 2

那字符串的unicode吗怎么转换？
还有向com口传送字符流和接收字符流怎么做阿，
各位高人帮帮忙。