将记录中的每个值转换成字符串,存在StringList中更简单些。
with TStringList.Create do
try
Values[a] := IntToStr(vRecord.a);
Values[b] := FloatToStr(vRecord.b);
Values[c] := vRecord.c;
ClientSocket.Socket.SendText(Text);
finally
Free;
end;接收时反过来写就行了。
with TStringList.Create do
try
Text := ReciveText;
vRecord.a := StrToInt(Values[a]);
vRecord.b := StrToFloat(Values[b]);
vRecord.c := Values[c];
finally
Free;
end;//记不清楚发送和接收字符串是怎么写的了,写得比较简略,没有写记录的定义,希望你能看懂。
with TStringList.Create do
try
Values[a] := IntToStr(vRecord.a);
Values[b] := FloatToStr(vRecord.b);
Values[c] := vRecord.c;
ClientSocket.Socket.SendText(Text);
finally
Free;
end;接收时反过来写就行了。
with TStringList.Create do
try
Text := ReciveText;
vRecord.a := StrToInt(Values[a]);
vRecord.b := StrToFloat(Values[b]);
vRecord.c := Values[c];
finally
Free;
end;//记不清楚发送和接收字符串是怎么写的了,写得比较简略,没有写记录的定义,希望你能看懂。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货