Code:

{These are three utility functions to write strings to a TStream.

Nothing fancy, but I just ended up coding this repeatedly so

I made these functions. }

unit ClassUtils;

interface

uses

SysUtils,

Classes;

{: Write a string to the stream

@param Stream is the TStream to write to.

@param s is the string to write

@returns the number of bytes written. }

function Writestring(_Stream: TStream; const _s: string): Integer;

{: Write a string to the stream appending CRLF

@param Stream is the TStream to write to.

@param s is the string to write

@returns the number of bytes written. }

function WritestringLn(_Stream: TStream; const _s: string): Integer;

{: Write formatted data to the stream appending CRLF

@param Stream is the TStream to write to.

@param Format is a format string as used in sysutils.format

@param Args is an array of const as used in sysutils.format

@returns the number of bytes written. }

function WriteFmtLn(_Stream: TStream; const _Format: string;

_Args: array of const): Integer;

implementation

function Writestring(_Stream: TStream; const _s: string): Integer;

begin

Result := _Stream.Write(PChar(_s)^, Length(_s));

end;

function WritestringLn(_Stream: TStream; const _s: string): Integer;

begin

Result := Writestring(_Stream, _s);

Result := Result + Writestring(_Stream, #13#10);

end;

function WriteFmtLn(_Stream: TStream; const _Format: string;

_Args: array of const): Integer;

begin

Result := WritestringLn(_Stream, Format(_Format, _Args));

end;