На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Название темы должно быть информативным !
Прежде чем задать вопрос, воспользуйтесь Поиском. и проверьте в FAQ (ЧАВО) Паскаля
Чтобы получить вразумительный ответ, подробно опишите проблему: что надо сделать, что не получается и номер ошибки (если есть), которую выводит компилятор.
Для вставки кода ваших программ используйте, пожалуйста, кнопку СODE=pas или выпадающий список СODE для других языков (подсветка синтаксиса).
[!] Как правильно задавать вопросы | Руководство по языку B.Pascal 7 & Objects/LR | Borland Pascal. Руководство пользователя
Модераторы: volvo877
  
> Нужен автономный gettime() чтобы работал без windos
    Нужен аналог gettime чтобы работал без windos. В поддержке Паскалем windows api есть что-нибудь такое?

    в Pascal for Windows
    Сообщение отредактировано: Ivanhoe75 -
      Borland Pascal for Windows предназначен для Windows 3.1 - т.е. создаёт 16-разрядные приложения.

      Поройтесь в заголовочных файлах с поиском по шаблону "time".

      А в более современных Windows есть GetSystemTime (в MSDN GetSystemTime) и GetLocalTime
      Пример на FPC
      ExpandedWrap disabled
        program test;
         
        uses
          Windows;
         
        var
          t: SYSTEMTIME;
        begin
          GetSystemTime(@t);
          writeln('The system time is: ', t.wHour, ':', t.wMinute);
          GetLocalTime(@t);
          writeln('The system time is: ', t.wHour, ':', t.wMinute);
        end.
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0250 ]   [ 16 queries used ]   [ Generated: 28.03.24, 19:15 GMT ]