代码大全

5.5

5.1.1

Points = DeviceUnits * ( POINTS_PER_INCH / DeviceUnitsPerInch ( ) )

DeviceUnitsToPoints(DeviceUnits Integer): Integer;

begin

DeviceUnitsToPoints = DeviceUnits *

( POINTS_PER_INCH / DeviceUnitsPerInch ( ) )

end

Points = DeviceUnitsToPoints ( DeviceUnits )

DeviceUnitPerInch() 0

DeviceUnitsToPoints( DeviceUnit:integer):integer;
begin
if DeviceUnitsPerInch ( ) <> 0 then
DeviceUnitsPoints = DeviceUnits *
( POINTS_PER_INCH / DeviceUnitsPerInch ( ) )
else
DeviceUnitsToPoints= 0
end

36 36 3