摘要:
TMyData = record id:Integer; Name:Array[0..20] of Char; Sex:Array[0..10] of Char; Age:Byte; Address:Array[0..256] of Char; UpdateTime:double; end;//发送结构体:procedure TForm2.Button2Click(Sender: TObject);var SendData:TMyData;beginSendData.ID:=10;StrPCopy(SendData.Name,'Wyatt');StrPCopy(SendData 阅读全文