mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-10 00:41:36 +01:00
41 lines
1.0 KiB
ObjectPascal
41 lines
1.0 KiB
ObjectPascal
(******************************************************************************
|
|
*
|
|
* Copyright (c) 1996-2000 Palm, Inc. or its subsidiaries.
|
|
* All rights reserved.
|
|
*
|
|
* File: Localize.h
|
|
*
|
|
* Release: Palm OS SDK 4.0 (63220)
|
|
*
|
|
* Description:
|
|
* Functions to localize data.
|
|
*
|
|
* History:
|
|
* 8/28/96 Roger - Initial version
|
|
*
|
|
*****************************************************************************)
|
|
|
|
unit localize;
|
|
|
|
interface
|
|
|
|
uses palmos, coretraps;
|
|
|
|
// The number format (thousands separator and decimal point). This defines
|
|
// how numbers are formatted and not neccessarily currency numbers (i.e. Switzerland).
|
|
type
|
|
NumberFormatType = Enum;
|
|
|
|
const
|
|
nfCommaPeriod = 0;
|
|
nfPeriodComma = Succ(nfCommaPeriod);
|
|
nfSpaceComma = Succ(nfPeriodComma);
|
|
nfApostrophePeriod = Succ(nfSpaceComma);
|
|
nfApostropheComma = Succ(nfApostrophePeriod);
|
|
|
|
procedure LocGetNumberSeparators(numberFormat: NumberFormatType; thousandSeparator, decimalSeparator: PChar); syscall sysTrapLocGetNumberSeparators;
|
|
|
|
implementation
|
|
|
|
end.
|