Testgerät_PCD
Generic
admin_2
Testgerät_PCD
unit Generic_Testgert;
interface
procedure InitDevice(Device: String);
procedure FormClose();
procedure FormShow();
procedure FormRefresh(channel: Integer);
implementation
var
dontRefresh: Boolean;
procedure InitDevice(Device: String);
begin
end;
procedure FormClose();
begin
end;
procedure FormShow();
begin
dontRefresh := false;
end;
procedure FormRefresh(channel: Integer);
var
value: Integer;
temp, phi, r: Double;
begin
if dontRefresh then begin
dontRefresh := false;
exit;
end;
case channel of
end;
dontRefresh := false;
end;
end.