Несколько функций для 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 http://forum.vingrad.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...