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);