function getYearDay(time: integer): integer;
Возвращает номер дня в году для данного времени time (представленного в количестве секунд, прошедших с 1 января 1970 г. и получаемого с помощью функции getCurrentTime). Возвращаемое значение может быть между 1 и 366
function getWeekDay(time: integer): integer;
Возвращает номер дня в неделе для данного времени time (представленного в количестве секунд, прошедших с 1 января 1970 г. и получаемого с помощью функции getCurrentTime). Возвращаемое значение будет 1 для воскресенья, 2 для понедельника и так далее (7 - суббота).
function getSecond(time: integer): integer;
Возвращает номер секунды в минуте для данного времени time (представленного в количестве секунд, прошедших с 1 января 1970 г. и получаемого с помощью функции getCurrentTime). Возвращаемое значение может быть между 0 и 59.
var time: integer;
text: string;
begin
time := getCurrentTime;
text := 'Current time is ' + getHour(time);
text := text + ':' + getMinute(time);
text := text + ':' + getSecond(time);
drawText(text, 0, 0);
repaint;
delay(1000); { wait 1 second before MIDlet terminates }
end.
function getMinute(time: integer): integer;
Возвращает номер минуты в часе для данного времени time (представленного в количестве секунд, прошедших с 1 января 1970 г. и получаемого с помощью функции getCurrentTime). Возвращаемое значение может быть между 0 и 59.
var
time: integer;
text: string;
begin
time := getCurrentTime;
text := 'Current time is ' + getHour(time);
text := text + ':' + getMinute(time);
text := text + ':' + getSecond(time);
drawText(text, 0, 0);
repaint;
delay(1000); { wait 1 second before MIDlet terminates }
end.
function getHour(time: integer): integer;
Возвращает номер часа в дне для данного времени time (представленного в количестве секунд, прошедших с 1 января 1970 г. и получаемого с помощью функции getCurrentTime). Возвращаемое значение может быть между 0 и 23.
var
time: integer;
text: string;
begin
time := getCurrentTime;
text := 'Current time is ' + getHour(time);
text := text + ':' + getMinute(time);
text := text + ':' + getSecond(time);
drawText(text, 0, 0);
repaint;
delay(1000); { wait 1 second before MIDlet terminates }
end.
function getDay(time: integer): integer;
Возвращает номер дня в месяце для данного времени time (представленного в количестве секунд, прошедших с 1 января 1970 г. и получаемого с помощью функции getCurrentTime). Возвращаемое значение может быть между 1 и 31.
function getCurrentTime: integer;
Возвращает количество секунд, прошедших с 1 января 1970 года до текущего момента. Возвращённое значение можно использовать в качестве аргумента для таких функций, как getMonth, getHour и прочих.
var
time: integer;
text: string;
begin
time := getCurrentTime;
text := 'Current time is ' + getHour(time);
text := text + ':'+ getMinute(time);
text := text + ':' + getSecond(time);
drawText(text, 0, 0);
repaint;
delay(1000); { подождать 1 секунду перед завершением программы }
end.
procedure delay(millis: integer);
Приостанавливает исполнение программы на указанное количество миллисекунд.
Чтобы отобразить сообщение на экране, подождать 2 секунды, а затем закрыть мидлет, используйте следующий код:
begin
drawText('Hello world', 0, 0);
repaint;
delay(2000);
end.
Массивы определяются следующим образом:
type chessFieldType = array[1..8, 1..8] of integer;
Этим выражением был задан новый тип - массив, размером 8 х 8 полей целочисленного типа. Можно задавать массивы в секции 'var':
type
chessFieldType = array[1..8, 1..8] of integer;
var
chessField: chessFieldType;
то же самое, что:
var
chessField: array[1..8, 1..8] of integer;
Следующий пример считает количество пустых клеток на шахматной доске:
type chessFieldType = array[1..8, 1..8] of integer;
var chessField: chessFieldType;
i, j, count: integer;
begin
...
{ Инициализация шахматной доски: заполнение некоторых клеток фигурами }
...
count := 0;
for i:=1 to 8 do
for j:=1 to 8 do
if chessField[i, j] = 0 then count := count + 1;
end.
MIDletPascal поддерживает массивы любой размерности. Вы можете использовать 1-, 2-х, или даже 10-размерные массивы (которые, правда, потребляют очень много памяти и нет уверенности в том, что они реально полезны).
При использовании массивов необходимо остерегаться попыток доступа к запредельным элементам массива. Например, следующий код вызовет падение мидлета:
var a:array[1..5] of integer;
begin
a[7] := 10; { a[7] не существует и здесь мидлет упадёт }
end.
