关于串口通信（在线等）

Question

仪表在传送数据时是先低位后高位，那么我怎样才能将接收的数据以先高位后低位的形式显示出来。

Answer 1

那能不能在以下程序给我改一下，谢谢！！！！
var
i:integer;
begin
  Label8.Caption:='传输';
  viewstring:='' ;
  move(buffer^,pchar(@rbuf)^,bufferlength);
  for i:=1 to bufferlength do
    viewstring:=viewstring+chr(rbuf[i])+'';    Edit1.Text:=viewstring;
end;

Answer 2

下面是交换高低为的函数(注:只适合最高位和最低位交换,次高位和次低位交换...)
ExChangeBit(SData:integer):integer
var 
 i,j:integer;
 Vreturn:integer;
Begin
  Vreturn:=0;
  for i:=1 to 8
    begin
      j:=Sdata Mod 2;
      Sdata:=Sdata Div 2;
      Vreturn:=Vreturn *2;
      Vreturn:=Vreturn +j;
    end;
  Result:=Vreturn;
end;