|
@@ -19,45 +19,45 @@ begin
|
|
for i := 1 to 7 do
|
|
for i := 1 to 7 do
|
|
writeln('short day ',i:5,' ',shortdaynames[i]:25,' - ',longdaynames[i]);
|
|
writeln('short day ',i:5,' ',shortdaynames[i]:25,' - ',longdaynames[i]);
|
|
|
|
|
|
- writeln('Dateseparator :', dateseparator);
|
|
|
|
|
|
+ writeln('Dateseparator : ', dateseparator);
|
|
{$ifdef localedebug}
|
|
{$ifdef localedebug}
|
|
- writeln('orgshortdate :', orgformatsettings.shortdateformat);
|
|
|
|
|
|
+ writeln('orgshortdate : ', orgformatsettings.shortdateformat);
|
|
{$endif}
|
|
{$endif}
|
|
- writeln('short date :', shortdateformat);
|
|
|
|
|
|
+ writeln('short date : ', shortdateformat);
|
|
{$ifdef localedebug}
|
|
{$ifdef localedebug}
|
|
- writeln('orglongdate :', orgformatsettings.longdateformat);
|
|
|
|
|
|
+ writeln('orglongdate : ', orgformatsettings.longdateformat);
|
|
{$endif}
|
|
{$endif}
|
|
- writeln('long date :', longdateformat);
|
|
|
|
|
|
+ writeln('long date : ', longdateformat);
|
|
{ Time stuff }
|
|
{ Time stuff }
|
|
- writeln('TimeSeparator :', timeseparator);
|
|
|
|
- writeln('TimeAMstring :', timeamstring);
|
|
|
|
- writeln('TimePMstring :', timepmstring);
|
|
|
|
|
|
+ writeln('TimeSeparator : ', timeseparator);
|
|
|
|
+ writeln('TimeAMstring : ', timeamstring);
|
|
|
|
+ writeln('TimePMstring : ', timepmstring);
|
|
{$ifdef localedebug}
|
|
{$ifdef localedebug}
|
|
- writeln('orgshorttime :', orgformatsettings.shorttimeformat);
|
|
|
|
|
|
+ writeln('orgshorttime : ', orgformatsettings.shorttimeformat);
|
|
{$endif}
|
|
{$endif}
|
|
|
|
|
|
// No support for 12 hour stuff at the moment...
|
|
// No support for 12 hour stuff at the moment...
|
|
- writeln('short time :', shorttimeformat);
|
|
|
|
|
|
+ writeln('short time : ', shorttimeformat);
|
|
{$ifdef localedebug}
|
|
{$ifdef localedebug}
|
|
- writeln('orglongtime :', orgformatsettings.longtimeformat);
|
|
|
|
|
|
+ writeln('orglongtime : ', orgformatsettings.longtimeformat);
|
|
{$endif}
|
|
{$endif}
|
|
- writeln('long time :', longtimeformat);
|
|
|
|
|
|
+ writeln('long time : ', longtimeformat);
|
|
|
|
|
|
{ Currency stuff }
|
|
{ Currency stuff }
|
|
|
|
|
|
{$ifdef localedebug}
|
|
{$ifdef localedebug}
|
|
- writeln('currency1 :', orgformatsettings.currencystring1);
|
|
|
|
- writeln('currency2 :', orgformatsettings.currencystring2);
|
|
|
|
|
|
+ writeln('currency1 : ', orgformatsettings.currencystring1);
|
|
|
|
+ writeln('currency2 : ', orgformatsettings.currencystring2);
|
|
{$endif}
|
|
{$endif}
|
|
|
|
|
|
- writeln('currencystring :', currencystring);
|
|
|
|
|
|
+ writeln('currencystring : ', currencystring);
|
|
|
|
|
|
- writeln('currencyformat :', currencyformat);
|
|
|
|
- writeln('negcurrformat :', negcurrformat);
|
|
|
|
|
|
+ writeln('currencyformat : ', currencyformat);
|
|
|
|
+ writeln('negcurrformat : ', negcurrformat);
|
|
|
|
|
|
- writeln('decimalseparator :', decimalseparator);
|
|
|
|
- writeln('thousandseparator:', thousandseparator);
|
|
|
|
- writeln('currencydecimals :', currencydecimals);
|
|
|
|
|
|
+ writeln('decimalseparator : ', decimalseparator);
|
|
|
|
+ writeln('thousandseparator: ', thousandseparator);
|
|
|
|
+ writeln('currencydecimals : ', currencydecimals);
|
|
end;
|
|
end;
|
|
|
|
|
|
begin
|
|
begin
|