Несколько функций для TStream

{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;

Взято с Vingrad.ru https://forum.vingrad.ru