FormatSettings jako stała - czy tak się da?

0

Witam, czy idzie zdefiniować typ TFormatSettings jako stałą? Próbuje tak jak poniżej ale kompilator nie pozwala na to.

  FormatSettings: record
    CurrencyFormat: Byte;
    NegCurrFormat: Byte;
    ThousandSeparator: Char;
    DecimalSeparator: Char;
    CurrencyDecimals: Byte;
    DateSeparator: Char;
    TimeSeparator: Char;
    ListSeparator: Char;
    CurrencyString: string;
    ShortDateFormat: string;
    LongDateFormat: string;
    TimeAMString: string;
    TimePMString: string;
    ShortTimeFormat: string;
    LongTimeFormat: string;
    ShortMonthNames: array[1..12] of string;
    LongMonthNames: array[1..12] of string;
    ShortDayNames: array[1..7] of string;
    LongDayNames: array[1..7] of string;
    TwoDigitYearCenturyWindow: Word;
  end = (
    CurrencyFormat: 3;
    NegCurrFormat: 8;
    ThousandSeparator: ' ';
    DecimalSeparator: ',';
    CurrencyDecimals: 2;
    DateSeparator: '-';
    TimeSeparator: ':';
    ListSeparator: ';';
    CurrencyString: 'zł';
    ShortDateFormat: 'dd-mm-yyyy';
    LongDateFormat: 'dd-mmmm-yyyy';
    TimeAMString: 'am';
    TimePMString: 'pm';
    ShortTimeFormat: 'hh:nn:ss';
    LongTimeFormat: 'hh:nn:ss';
    ShortMonthNames: ('Sty','Lut','Mar','Kwi','Maj','Cze','Lip','Sie','Wrz','Paź','Lis','Gru');
    LongMonthNames: ('Styczeń','Luty','Marzec','Kwiecień','Maj','Czerwiec','Lipiec','Sierpień','Wrzesień','Październik','Listopad','Grudzień');
    ShortDayNames: ('Pon','Wt','Śr','Czw','Pią','Sob','Nie');
    LongDayNames: ('Poniedziałek','Wtorek','Środa','Czwartek','Piątek','Sobota','Niedziela');
    TwoDigitYearCenturyWindow: 28048);

i np użycie

    
  FormatDateTime('dd.mm.yyyy hh:nn:ss',Now,FormatSettings);
0

const FormatSettings:TFormatSettings=( CurrencyFormat: 3; ...

0

Mam jeszcze jedno pytanie za co odpowiada zmienna CurrencyFormat ?

0

Za to gdzie zostanie umieszczony symbol waluty przy formatowaniu na string.

Zresztą co za problem się pobawić:

CurrencyFormat:= 3;
ShowMessage(Format('%m', [1234.567]));

1 użytkowników online, w tym zalogowanych: 0, gości: 1