小问题，大毛病1

Question

看看编码和解码用的是否是同一种方式

Answer 1

像这类问题
贴出程序代码来吧//不要说你的代码很精典哦，那偶第一个不看，我很尊重别人的哦 ^o^

Answer 2

我用NMUDP作聊天工具时，用Memo来发言或接收，可是接受到的信息的第四个字符后
都是乱吗，请问是什么原因？ 
其中发送与接受的程序如下：
procedure TForm1.Button2Click(Sender: TObject);
var txt:pchar;
begin
  if Memo1.Text ='' then
  begin
     StatusBar1.SimpleText:='Nothing to send';
     exit;
   end;
   GetMem(txt,Length(Memo1.Text)+1);
   ZeroMemory(txt,Length(Memo1.Text)+1);
   txt:=pchar(Memo1.text);
   NMUDP1.RemoteHost :=Edit1.Text ;
   NMUDP1.RemotePort :=StrToint(edit2.text);
   NMUDP1.SendBuffer (TXT^,LENGTH(mEMO1.TEXT));end;procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
var
  TXT:PCHAR;
   Count:Integer;
  begin
  StatusBar1.SimpleText :='Receiving data';
  GetMem(txt,NumberBytes+1);
  ZeroMemory(TXT,NumberBytes+1);
  NMUDP1.ReadBuffer (TXT^,Count);
  Memo1.Lines.Add (TXT);
  FreeMem(Txt);
  StatusBar1.SimpleText:='data Received';end;procedure TForm1.NMUDP1DataSend(Sender: TObject);
begin
StatusBar1.simpleText:='Data Send';
end;procedure TForm1.NMUDP1Status(Sender: TComponent; status: String);
begin
StatusBar1.SimpleText:=Status;
end;