Индексный доступ к элементам строки для записи

Стандартно Blitzmax не позволяет записывать в строку, используя индексный доступ. Но с помощью небольшого трюка это можно забороть.

Вот исходник, показывающий подробно, как это делается:

Local str$ = "Hello" Print str Local p:IntPtr = IntPtr(Varptr(str)) Local pchar:ShortPtr = ShortPtr(p[0]) pchar :+ 6'this offset depends on String structure pchar[0]=Asc("H") pchar[1]=Asc("e") pchar[2]=Asc(" ") pchar[3]=Asc("h") pchar[4]=Asc("e") Print str

Или вот так в одну строку можно получить указатель на первый символ:

Local pchar:Short Ptr = Short Ptr(Int Ptr(Varptr(str))[0]) + 6

Как видно из примера, мы просто получаем указатель на первый элемент строки во внутренней структуре строкового типа языка.

Ссылка на статью с другими советами: http://blitzmax.3dn.ru/publ/3-1-0-8

Работа с многомерными массивами

Если мы объявили многомерный массив как массив значений (Local a[n,m]), а не массив массива (a[n][m]), то пройти весь массив можно не стандартным способом с вложенными циклами, а одним foreach:

Local a[2,2] a[0,0]=1; a[0,1]=2; a[1,0]=3; a[1,1]=4 For Local i:Int = EachIn a; Print i; Next;

Обход выполняется сначала по последним индексам.

Перерыв

После бааальшога перерыва решил продолжить этот блог.

Приношу извинения за остывшиеся без ответов вопросы. Я перебрался на сайтик по БМ, который http://blitzmax.3dn.ru, а с этого почему-то не приходят извещения о коментах. Сейчас подправил настройки, должно работать, но лучше все-же постить на http://blitzmax.3dn.ru. 

А этот блог будет для повышения цитируемости.

Дизайн вот тут поменял.

Отрисовка куска изображения

Используем SetViewport

Function DrawImageRect(img:TImage, x#, y#, rx#, ry#, rw#, rh#) SetViewport x, y, rw, rh DrawImage img, x - rx, x - ry SetViewport(0, 0, GFX_WIDTH, GFX_HEIGHT) EndFunction

Особенности: надо знать абсолютные координаты.
Недостатки: SetViewport не всеми картами поддерживается.