ConvUtils and StdConvs
Convert (value: Double; FromUnit, ToUnit: TConvType): Double;
Example:
Convert inch to centimeters
VAR inch, cnetimeters: Double;
BEGIN
inch: = 21;
Centimeters: Convert = (inch, auSquareInches, auSquareCentimeters);
Memo.Lines.Add(Format('%8.4f inch of area = %8.4f centimeters of area ', [inch, centimeters]));
No hay comentarios:
Publicar un comentario