50 lines
1.0 KiB
Plaintext
50 lines
1.0 KiB
Plaintext
unit TSUnitConverter;
|
|
interface
|
|
function PointsToTwips(value): real;
|
|
function TwipsToPoints(value: real): real;
|
|
function EmusToPoints(value: real): real;
|
|
function HalfPointToPoints(value: real): real;
|
|
function EighthPointToPoints(value: real): real;
|
|
function PercentToNumber(value: real): real;
|
|
function NumberToPercent(value: real): real;
|
|
|
|
implementation
|
|
|
|
function PointsToTwips(value): real;
|
|
begin
|
|
return value * 20;
|
|
end;
|
|
|
|
function TwipsToPoints(value: real): real;
|
|
begin
|
|
return value / 20;
|
|
end;
|
|
|
|
function EmusToPoints(value: real): real;
|
|
begin
|
|
return value / 12700;
|
|
end;
|
|
|
|
function HalfPointToPoints(value: real): real;
|
|
begin
|
|
return value / 2;
|
|
end;
|
|
|
|
function PercentToNumber(value: real): real;
|
|
begin
|
|
return value / 100;
|
|
end;
|
|
|
|
function NumberToPercent(value: real): real;
|
|
begin
|
|
return value * 100;
|
|
end;
|
|
|
|
function EighthPointToPoints(value: real): real;
|
|
begin
|
|
return value / 8;
|
|
end;
|
|
|
|
end.
|
|
|