{ 流输入输出基本方法 } TStreamIO = class public class function BoolFromStream(Stream: TStream): Boolean; class function ByteFromStream(Stream: TStream): Byte; class function IntFromStream(Stream: TStream): Integer; class function LongIntFromStream(Stream: TStream): LongInt; class function FloatFromStream(Stream: TStream): Extended; class function SizeFromStream(Stream: TStream): TSize; class function RectFromStream(Stream: TStream): TRect; class function ColorFromStream(Stream: TStream): COLORREF; class function PointFromStream(Stream: TStream): TPoint; class function StringFromStream(Stream: TStream): string; class function DateTimeFromStream(Stream : TStream) : TDateTime; class procedure StreamFromStream(Source, SubStream: TStream);
class procedure BoolToStream(Stream: TStream; Value: Boolean); class procedure ByteToStream(Stream: TStream; Value: Byte); class procedure IntToStream(Stream: TStream; Value: Integer); class procedure LongIntToStream(Stream: TStream; Value: LongInt); class procedure FloatToStream(Stream: TStream; Value: Extended); class procedure SizeToStream(Stream: TStream; Value: TSize); class procedure RectToStream(Stream: TStream; Value: TRect); class procedure ColorToStream(Stream: TStream; Value: COLORREF); class procedure PointToStream(Stream: TStream; Value: TPoint); class procedure StringToStream(Stream: TStream; Value: string); class procedure DateTimeToStram(Stream : TStream; Value : TDateTime); class procedure StreamToStream(Stream, SubStream: TStream); end;