Added Day and Month 3 character constants

This commit is contained in:
mysticbbs 2013-02-16 23:01:26 -05:00
parent 189a99ea60
commit 0db8dc5d4f
1 changed files with 4 additions and 0 deletions

View File

@ -4,6 +4,10 @@ Unit m_DateTime;
Interface Interface
Const
DayString : Array[0..6] of String[3] = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
MonthString : Array[1..12] of String[3] = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
Procedure WaitMS (MS: Word); Procedure WaitMS (MS: Word);
Function TimerMinutes : LongInt; Function TimerMinutes : LongInt;
Function TimerSeconds : LongInt; Function TimerSeconds : LongInt;