unit kpadbef;
{
  Unit to implement "abstract" padding class.
  This moment used in kModBus to do padding between sending commands.

   Author:  Vesa Lappalainen
   Date:    30.09.1997

}

interface
type
  TPadBefore = class(TObject)
  public
    procedure CheckPad(i:integer); virtual;
    procedure StartNew(i:integer); virtual;
    function Str:string; virtual;
  end;


implementation

procedure TPadBefore.CheckPad(i:integer);
begin
end;

procedure TPadBefore.StartNew(i:integer);
begin
end;

function TPadBefore.Str: string;
begin
  Result := '';
end;

end.