32 lines
631 B
Plaintext
32 lines
631 B
Plaintext
unit TSUnitConverter;
|
|
interface
|
|
function TwipsToPoints(value: real): real;
|
|
function EmusToPoints(value: real): real;
|
|
function HalfPointToPoints(value: real): real;
|
|
function PercentToNumber(value: real): real;
|
|
|
|
implementation
|
|
|
|
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
|
|
|
|
end.
|
|
|