paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:06:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support for debuglocale and print the names of the fields.

Browse Source 
git-svn-id: trunk@10802 -
This commit is contained in:
marco 2008-04-26 13:49:41 +00:00
parent a37bb0dd6e
commit 614948f551
1 changed files with 44 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
tests/test/units/sysutils/tlocale.pp
View File

@ -7,39 +7,57 @@ uses
{$endif} {$endif}
SysUtils; SysUtils;
procedure PrintSettings; procedure PrintSettings;
var var
i: integer; i: integer;
begin begin
for i := 1 to 12 do Writeln('Month names:');
begin for i := 1 to 12 do
writeln(ShortMonthNames[i]); Writeln('month ',i:5,' ',shortmonthnames[i]:25,' - ',longmonthnames[i]);
writeln(LongMonthNames[i]); Writeln;
end; Writeln('Day names :');
for i := 1 to 7 do for i := 1 to 7 do
begin writeln('short day ',i:5,' ',shortdaynames[i]:25,' - ',longdaynames[i]);
writeln(ShortDayNames[i]);
writeln(LongDayNames[i]); writeln('Dateseparator :', dateseparator);
end; {$ifdef localedebug}
writeln(DateSeparator); writeln('orgshortdate :', orgformatsettings.shortdateformat);
writeln(ShortDateFormat); {$endif}
writeln(LongDateFormat); writeln('short date :', shortdateformat);
{$ifdef localedebug}
writeln('orglongdate :', longdateformat);
{$endif}
writeln('long date :', longdateformat);
{ Time stuff } { Time stuff }
writeln(TimeSeparator); writeln('TimeSeparator :', timeseparator);
writeln(TimeAMString); writeln('TimeAMstring :', timeamstring);
writeln(TimePMString); writeln('TimePMstring :', timepmstring);
{$ifdef localedebug}
writeln('orgshorttime :', orgformatsettings.shorttimeformat);
{$endif}
// No support for 12 hour stuff at the moment... // No support for 12 hour stuff at the moment...
writeln(ShortTimeFormat); writeln('short time :', shorttimeformat);
writeln(LongTimeFormat); {$ifdef localedebug}
writeln('orglongtime :', longtimeformat);
{$endif}
writeln('long time :', longtimeformat);
{ Currency stuff } { Currency stuff }
writeln(CurrencyString);
writeln(CurrencyFormat); {$ifdef localedebug}
writeln(NegCurrFormat); writeln('currency1 :', orgformatsettings.currencystring1);
{ Number stuff } writeln('currency2 :', orgformatsettings.currencystring2);
writeln(ThousandSeparator); {$endif}
writeln(DecimalSeparator);
writeln(CurrencyDecimals); writeln('currencystring :', currencystring);
writeln('currencyformat :', currencyformat);
writeln('negcurrformat :', negcurrformat);
writeln('decimalseparator :', decimalseparator);
writeln('thousandseparator:', thousandseparator);
writeln('currencydecimals :', currencydecimals);
end; end;
begin begin