|
Полезные функции Выкладываем полезные функции, чтоб не изобретать велосипед заново... |
18.11.2005, 23:27
|
#1
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Вот тут накотал либу для работы с массивами:
+ где хочешь, там и создаёшь
+ динамический
+ можно передать как аргумент
+ можно хранить в типе
Вот либа и примерчик.
У меня работает, хотя надо ещё потестить...
мож кому пригодится
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|
18.11.2005, 23:33
|
#2
|
|
интересно ето - кому и зачем :/
|
|
|
18.11.2005, 23:49
|
#3
|
Модератор
Регистрация: 13.09.2005
Сообщений: 1,835
Написано 6 полезных сообщений (для 10 пользователей)
|
Originally posted by jimon@Nov 18 2005, 10:33 PM
интересно ето - кому и зачем :/
|
эээ.....тому кто заинтересуется!
|
(Offline)
|
|
18.11.2005, 23:51
|
#4
|
Администратор
Регистрация: 03.09.2005
Сообщений: 2,408
Написано 301 полезных сообщений (для 996 пользователей)
|
__________________
Как минимум я помог многим (с)
|
(Offline)
|
|
29.11.2005, 23:54
|
#5
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Кто-нибудь проверял либу в работе?
Ошибки есть/нет?
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|
30.11.2005, 00:06
|
#6
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Вот облегчённая версия
тип Int
размерность -2
;created by impersonalis (b00lean team)
;impersonalis[@]boolean.name
;
;http://community.boolean.name/index.php
;http://boolean.name/index.php
Type SpecialArray2d
Field PrivateArray%
Field PrivateINIT_STRo%; size0f
Field PrivateINIT_STRt%
End Type
Function SA_Create2d.SpecialArray2d(one%,two%)
S.SpecialArray2d=New SpecialArray2d
S\PrivateINIT_STRo=one
S\PrivateINIT_STRt=two
S\PrivateArray=CreateBank(one*two*4)
Return S
End Function
Function SA_Private_ReturnIndex2d(S.SpecialArray2d,one%,two%)
Local c=1
Local ptr=(S\PrivateINIT_STRo-1)*(one%)+two-1
ptr=ptr*4
Return ptr
End Function
Function SA_OUT2d(S.SpecialArray2d,one%,two%)
Local ptr=SA_Private_ReturnIndex2d(S,one%,two%)
Return PeekInt(S\PrivateArray,ptr)
End Function
Function SA_IN2d(S.SpecialArray2d,one%,two%,inputZ%)
Local ptr=SA_Private_ReturnIndex2d(S,one%,two%)
PokeInt(S\PrivateArray,ptr,inputZ)
End Function
Function SA_Delete2d(S.SpecialArray2d)
FreeBank S\PrivateArray
Delete S
End Function
Вообще - тема не вызвала энтузиазма.
Вероятно - решение на любителя.
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|
30.11.2005, 01:08
|
#7
|
|
Поглядел первую версию. Как-то непонятно. Можно было имена переменным более логичные дать и хоть в комментах пояснить действие в той же функции SA_CREATE.
|
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
Массивы в типе |
DStalk |
2D-программирование |
15 |
03.01.2010 22:45 |
Опять про массивы в МП. SOS! |
Licon |
Основной форум |
2 |
17.03.2009 23:14 |
Массивы |
Petrofan |
2D-программирование |
74 |
04.03.2009 14:57 |
Про массивы. |
Cliffe Snake |
Основной форум |
10 |
08.11.2008 12:19 |
Часовой пояс GMT +4, время: 15:32.
|