library Device;
uses
SysUtils, Dialogs, ShareMem,
Classes,
Obj_Unit
in '
Obj_Unit.pas',
nrclasses, nrcomm;
type
TMWSt98 =
class(TMWSt)
private
FMWStSatz : Real;
public
constructor Create;
function GetBrutto (
const aNetto : Currency): Currency;
override;
procedure SetPercent(
const aPercent : Integer);
override;
Function ShowPortInfo :
string;
override;
end;
constructor TMWSt98.Create;
begin
inherited Create;
FMWStSatz := 1.15;
Assert(MWST_VERSION = 1, '
Falsche Unit-Version!');
// nrcomm := TNrComm.Create(nil);
end;
function TMWSt98.GetBrutto(
const aNetto: Currency): Currency;
begin
Result := aNetto * FMWStSatz;
ShowMessage(comm.ComName);
end;
procedure TMWSt98.SetPercent(
const aPercent : Integer);
begin
FMWStSatz := 1.0 + (aPercent/100);
end;
Function TMWSt98.ShowPortInfo :
string;
var Output :
string;
begin
Comm.EnumPorts := epFullInfo;
Comm.Update;
output := comm.ComName + #13#10 +
Comm.Device[comm.DeviceIndex].RegKey;
Formular.Memo1.Lines.Add(output);
ShowPortInfo := Output;
end;
{ Schnittstellenprozedur }
function CreateMWStObj: TMWSt98;
stdcall;
begin
Result := TMWSt98.Create;
end;
{ Export der Schnittstellenprozedur }
exports
CreateMWStObj;
// resident;
begin
{ nichts zu tun }
end.