|
11.01.2011, 19:45
|
#1
|
Оператор ЭВМ
Регистрация: 02.10.2010
Сообщений: 29
Написано 0 полезных сообщений (для 0 пользователей)
|
модули
можете выложить сюда модули которые есть у вас. мне только crt удалось найти.
|
(Offline)
|
|
11.01.2011, 20:58
|
#2
|
Разработчик
Регистрация: 16.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений (для 93 пользователей)
|
Ответ: модули
Сообщение от FighteR
можете выложить сюда модули которые есть у вас. мне только crt удалось найти.
|
Вообще-то модули пишутся самостоятельно для каждой программы свои.
Если ты имеешь ввиду библиотеки то они тут
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
|
(Offline)
|
|
13.01.2011, 02:04
|
#3
|
Оператор ЭВМ
Регистрация: 02.10.2010
Сообщений: 29
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: модули
не библиотеки а модули . мож просто кто то писал себе то почему бы и не выложить. может какието интересные реализации можно будет уивидеть
|
(Offline)
|
|
14.01.2011, 19:31
|
#4
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: модули
Был модуль из одной функции, которая выдавала фпс. Нужен?
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
15.01.2011, 16:54
|
#5
|
Нуждающийся
Регистрация: 12.12.2010
Адрес: SaratoF
Сообщений: 85
Написано 5 полезных сообщений (для 5 пользователей)
|
Ответ: модули
Да, выкладывайте всё что не жалко) Будем тестить)
|
(Offline)
|
|
15.01.2011, 18:52
|
#6
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: модули
Я не нашёл, поэтому пишу по памяти
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. но мне лень))
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
16.01.2011, 18:14
|
#7
|
Разработчик
Регистрация: 16.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений (для 93 пользователей)
|
Ответ: модули
Сообщение от Igor
P.P.P.S. но мне лень))
|
+1
не только ты один такой...
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
|
(Offline)
|
|
27.01.2011, 21:09
|
#8
|
Разработчик
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 419
Написано 100 полезных сообщений (для 182 пользователей)
|
Ответ: модули
В какую папку модули сохранять надо?
|
(Offline)
|
|
27.01.2011, 23:14
|
#9
|
Оператор ЭВМ
Регистрация: 02.10.2010
Сообщений: 29
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: модули
наверно туда же куда и библиотеки
|
(Offline)
|
|
28.01.2011, 19:00
|
#10
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: модули
Модули надо добавлять в проект.
В МП вверху где-то есть
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
28.01.2011, 19:30
|
#11
|
Разработчик
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 419
Написано 100 полезных сообщений (для 182 пользователей)
|
Ответ: модули
Я уже разобрался
|
(Offline)
|
|
29.01.2011, 16:43
|
#12
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: модули
Для удобства отладки.
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. Писал по памяти.
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
28.02.2011, 10:05
|
#13
|
Разработчик
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 419
Написано 100 полезных сообщений (для 182 пользователей)
|
Ответ: модули
У меня вопрос: как передавать из программы в модуль (как параметр функции) и обратно данные типа, определенного как record? Я так понимаю что надо описать этот тип в разделе implementation, но тогда основная программа его не видит.
|
(Offline)
|
|
28.02.2011, 12:47
|
#14
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: модули
Сообщение от AVL
У меня вопрос: как передавать из программы в модуль (как параметр функции) и обратно данные типа, определенного как record? Я так понимаю что надо описать этот тип в разделе implementation, но тогда основная программа его не видит.
|
В implementation не увидит, нужно объявлять в interface.
|
(Offline)
|
|
20.03.2011, 14:15
|
#15
|
Разработчик
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 419
Написано 100 полезных сообщений (для 182 пользователей)
|
Ответ: модули
Немного перепутал. . . Именно в interface я тип и описывал, но основная программа его не видит. Короче, вопрос: как сделать так, чтобы функция из модуля возвращала значение типа record?
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 18:45.
|