model.pas

絮语2007视频聊天软件源程序.仅供参考

unit model;

interface

uses Windows,SysUtils;

type

  Tmodel=class
    constructor Create;
    destructor  Destroy;override;
    procedure process(params:string);virtual;
  end;

implementation
uses shareunit;


constructor Tmodel.Create;
begin

end;

destructor Tmodel.Destroy;
begin
  inherited Destroy;
end;

procedure Tmodel.process(params:string);
begin

end;


end.