Показать сообщение отдельно
Старый 19.07.2013, 09:24   #533
Fred-boy
 
Сообщений: n/a
Ответ: Запросы на написание библиотек. Библиотеки запрашивать только здесь.

Сообщение от MegaX5 Посмотреть сообщение
Сделайте библиотека что бы она время показывало (Например пишешь:
Time;
DrawText(time,23,100);
и он тебе время показывает
17:05 )
Такая функция есть в мидлетпаскале, читай хелп

function getCurrentTime: integer;

Returns the current time in seconds since midnight 1.1.1970. The returned value (the number of seconds) can be used as argument to call functions such as getMonth or 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); { wait 1 second before MIDlet terminates }
end.
 
Ответить с цитированием