将记录中的每个值转换成字符串,存在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;//记不清楚发送和接收字符串是怎么写的了,写得比较简略,没有写记录的定义,希望你能看懂。