git-svn-id: https://spexeah.com:8443/svn/Asuro@622 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

This commit is contained in:
kieron
2018-05-01 01:05:28 +00:00
parent 440417547f
commit bea68de5d2
79 changed files with 8229 additions and 8207 deletions

View File

@ -19,12 +19,27 @@ type
procedure init;
function getDateTime : TDateTime;
function weekdayToString(Weekday : uint8) : pchar;
implementation
var
DateTime : TDateTime;
function weekdayToString(Weekday : uint8) : pchar;
begin
case Weekday of
0:weekdayToString:= 'Saturday';
1:weekdayToString:= 'Sunday';
2:weekdayToString:= 'Monday';
3:weekdayToString:= 'Tuesday';
4:weekdayToString:= 'Wednesday';
5:weekdayToString:= 'Thursday';
6:weekdayToString:= 'Friday';
else weekdayToString:= 'Unknown';
end;
end;
function is_update_in_progress : boolean;
var
bin : uint8;