关于串口接收显示问题 急！(100分)

打个比方啊:
（1） 握手：QF 回答QS
用串口发送QF,Comm1ReceiveData收到QS表明完成握手
其他依次类推

这样说看来挺简单，可是我想知道，那么多的命令怎么协调好

把你的的项目外包给我做把呵呵，包你满意

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
str: PChar;
begin
str := StrAlloc(100);
str := Buffer;
Memo1.Text := str;
end;
这段程序在另一个串口已经可以实现 memo1中的值是实时变化的 '=xxxxxxx'
现在要把收到的数据 逆序,即变成 xxxxxxx=
写了
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);





var
str: PChar;
i:integer;
str1: array of char;
begin
str := StrAlloc(bufferlength);
str := Buffer;
setlength(str1,bufferlength);
move(buffer^,str1[0],bufferlength);
for i:= low(str1) to high(str1) do
begin
str1:=str^;
str:=str+1;
end;
str:=buffer;
for i:=high(str1) to low(str1) do
begin
str^:=str1;
str:=str+1;
end;
Memo1.Text := str;

end;
显示的还是 =xxxxxxx 是什么问题?

多人接受答案了。