Карта сайтаСсылкиКонтакты

Использование некоторых функций TStream

PDF Печать
Статьи

Здесь приводится три серверных функции для записи строк в TStream.


unit ClassUtils;

interface

uses
  SysUtils,
  Classes;

{  Запись строки в поток
   Stream - TStream для записи
   s - строка для записи
   Возвращает количество записанных байт }
function Writestring(_Stream: TStream; const _s: string): Integer;

{  Запись строки в поток с добавлением в конец CRLF
   Stream - TStream для записи
   s строка для записи
   Возвращает количество записанных байт }
function WritestringLn(_Stream: TStream; const _s: string): Integer;

{  Запись форматированных данных в поток с добавлением в конец CRLF
   Stream - TStream для записи
   Format строка форматирование, как используется в SysUtils.Format
   Args - массив констант, как используется в SysUtils.Format
   Возвращает количество записанных байт }
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;

 

Добавить комментарий


Защитный код
Обновить