модули
можете выложить сюда модули которые есть у вас. мне только crt удалось найти.
|
Ответ: модули
Цитата:
Если ты имеешь ввиду библиотеки то они тут |
Ответ: модули
не библиотеки а модули . мож просто кто то писал себе то почему бы и не выложить. может какието интересные реализации можно будет уивидеть
|
Ответ: модули
Был модуль из одной функции, которая выдавала фпс. Нужен?
|
Ответ: модули
Да, выкладывайте всё что не жалко) Будем тестить)
|
Ответ: модули
Я не нашёл, поэтому пишу по памяти
unit aa; interface var t:integer; function fps:integer; implementation function fps:integer; var dt:integer; begin dt:=GetRelativeTimeMs-t; //время с предыдущего вызова функции t:=t+dt; fps:=1000 div dt; end; initialization t:=GetRelativeTimeMs; end. P.S. простой, неточный, недоработанный)) P.P.S. Можно хранить предыдущее значение функции в ещё одной переменной, и если оно меньше чем 1000/dt, то увеличить на единицу, иначе уменьшить. Результат получится более стабильным P.P.P.S. но мне лень)) |
Ответ: модули
Цитата:
+1 не только ты один такой... |
Ответ: модули
В какую папку модули сохранять надо?
|
Ответ: модули
наверно туда же куда и библиотеки
|
Ответ: модули
Модули надо добавлять в проект.
В МП вверху где-то есть |
Ответ: модули
Я уже разобрался
|
Ответ: модули
Для удобства отладки.
procedure write(a:string); var key:integer; begin setcolor(255,255,255); fillrect(0,0,getheight,getwidth); setcolor(0,0,0); drawtext(a,0,0); repaint; repeat key:=getkeypressed; until key=ke_key0; end; P.S. Писал по памяти. |
Ответ: модули
У меня вопрос: как передавать из программы в модуль (как параметр функции) и обратно данные типа, определенного как record? Я так понимаю что надо описать этот тип в разделе implementation, но тогда основная программа его не видит.
|
Ответ: модули
Цитата:
|
Ответ: модули
Немного перепутал. . . Именно в interface я тип и описывал, но основная программа его не видит. Короче, вопрос: как сделать так, чтобы функция из модуля возвращала значение типа record?
|
Часовой пояс GMT +4, время: 00:39. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot