TStream

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;