如何实现一个Record的 串行化(100分)

例如
一个结构：
TTextFont = packed record
Charset: TFontCharset;
Color: TColor;
Height: Integer;
Name: TFontName;
Pitch: TFontPitch;
Size: Integer;
Style: TFontStyles;
end;
如何串行化成一个字符串，就像Watch调试窗口时出现的
TextFont: (245, 20250642, 12, '', (out of bound) 64, 1115730944, [])
中的字符串，以及得到该字符串后如何复原到TextFont(即反串行化)

自己写函数转呀!!!

這麼複雜的變量,自己写個函数转呀!!!

jianguobu老兄：
delphi应该提供了串行化的通用方法（譬如一个函数或类的方法）来实现，否则编译器在调试时不可能去一一个来手工给你转。

只少我没发现.