mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-28 10:02:14 +00:00
30 lines
412 B
ObjectPascal
30 lines
412 B
ObjectPascal
unit DCClasses;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, NullStream;
|
|
|
|
type
|
|
|
|
{ TNullStreamEx }
|
|
|
|
TNullStreamEx = class(TNullStream)
|
|
public
|
|
function Write(const Buffer; Count: LongInt): LongInt; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TNullStreamEx }
|
|
|
|
function TNullStreamEx.Write(const Buffer; Count: LongInt): LongInt;
|
|
begin
|
|
Result:= Count;
|
|
inherited Write(Buffer, Count);
|
|
end;
|
|
|
|
end.
|
|
|