IsMetricSystem function

Unit

acUtils

Declaration

function IsMetricSystem: Boolean;

Description

Checks the system, whether it uses Metric or old British measurement system.

Original code

function IsMetricSystem: Boolean;

begin

Result := GetLocaleChar(GetThreadLocale, LOCALE_IMEASURE, #0) = '0';

end;