SizeOf( Array() ) ?

Codemonger · Post by **Codemonger** » Sun Nov 09, 2003 7:44 pm

Does anybody know how to get the sizeof() an array.... not the upper or lower bounds of the elements but the actually length in bytes of the whole array ... or at least the length in bytes of one array ?

Post by **freak** » Sun Nov 09, 2003 8:45 pm

Code: Select all

Procedure.l ArrayMemorySize(*Array)
  !sub [esp], dword 8
  !push dword [esp]
  !push dword 0
  !push dword [PB_MemoryBase]
  !call _HeapSize@12
  ProcedureReturn
  HeapSize_(0, 0, 0) ; make sure, _HeapSize@12 is defined
EndProcedure

Procedure ArraySize(*Array)
  ProcedureReturn PeekL(*Array-8)
EndProcedure


Dim Array.l(50)


Debug ArrayMemorySize(@Array())
Debug ArraySize(@Array())

ArrayMemorySize() shows the real size in memory.
ArraySize() shows the total number of elements.

Timo

Codemonger · Post by **Codemonger** » Sun Nov 09, 2003 8:46 pm

Thanks Freak your a lifesaver ...

GPI · Post by **GPI** » Sun Nov 09, 2003 10:52 pm

How secure is this for future versions of PB.

Post by **freak** » Sun Nov 09, 2003 11:01 pm

> How secure is this for future versions of PB.

Do you know of much other ways to allocate an Array than HeapAloc ??
If something changes, what's the deal of changing this procedure, too ?

Timo

fsw · Post by **fsw** » Sun Nov 09, 2003 11:22 pm

freak wrote: Procedure.l ArrayMemorySize(*Array)
!sub [esp], dword 8
!push dword [esp]
!push dword 0
!push dword [PB_MemoryBase]
!call _HeapSize@12
ProcedureReturn
HeapSize_(0, 0, 0) ; make sure, _HeapSize@12 is defined
EndProcedure

Freak I have a question for you:

HeapSize_(0, 0, 0) ; make sure, _HeapSize@12 is defined

comes after:

ProcedureReturn

and I thought ProcedureReturn is like a break because it exits the Procedure right away.
So:

HeapSize_(0, 0, 0) ; make sure, _HeapSize@12 is defined

will never be executed... or am I wrong

Post by **freak** » Sun Nov 09, 2003 11:26 pm

Freak I have a question for you:

HeapSize_(0, 0, 0) ; make sure, _HeapSize@12 is defined

comes after:

ProcedureReturn

and I thought ProcedureReturn is like a break because it exits the Procedure right away.
So:

HeapSize_(0, 0, 0) ; make sure, _HeapSize@12 is defined

will never be executed... or am I wrong

Yes, you are right, and calling HeapSize with a lot of 0's would definately
fail.

I call the HeapSize directly from asm, ans since it is external, it has to
be defined with

!extrn _HeapSize@12

in order to be used. The problem is, as soon as somebody uses
HeapSize_(), PB will automatically define the symbol, and you get an
'allready defined' error. So, to prevent that, i just insert HeapSize_() at
some point, where it will never be executed, just so that PB defines the
symbol for me.

Dirty little trick, i know, but...

Timo

Post by **Rings** » Mon Nov 10, 2003 9:29 am

very handy for the a new UBOUND(Array) Command:

Code: Select all

Dim MYArray.b(4711)

Procedure Ubound(*Array)
 ProcedureReturn PeekL(*Array-8)
endprocedure

Debug Str(UBound(@MyArray(0)))

Falko · Post by **Falko** » Thu Dec 23, 2004 11:47 am

Hi @freak

And have you a code to make 'Lbound'?

Thanks Falko

Post by **Rings** » Thu Dec 23, 2004 3:32 pm

Procedure LBound(*Array)
procedurereturn 0
endprocedure

helpy · Post by **helpy** » Thu Dec 23, 2004 3:42 pm

Rings wrote:Procedure LBound(*Array)
procedurereturn 0
endprocedure

Falko · Post by **Falko** » Thu Dec 23, 2004 4:13 pm

thanks @Rings, but this Source have many errors. It does not rearly help.
Here the german link.

http://robsite.de/php/pureboard/viewtopic.php?t=1318

Can any help me please to corecting this source?

Sorry, my english from german post,

Falko

helpy · Post by **helpy** » Thu Dec 23, 2004 4:18 pm

Falko wrote:thanks @Rings, but this Source have many errors. It does not rearly help.
Here the german link.

http://robsite.de/php/pureboard/viewtopic.php?t=1318

Can any help me please to corecting this source?

Sorry, my english from german post,

Falko

------GERAMAN---------------
Hi Falko,

LBound in PureBasic ist IMMER 0 !!!

In anderen Sprachen ist es mÃ¶glich ein Array zu definieren, das von 50 bis 100 geht, wobei LBOUND in diesem Fall 50 ist. WÃ¼rde man einen Index auÃŸerhalb dem Bereich [50-100] aufrufen wÃ¼rde es eine Fehlermeldung geben.

------ENGLISH---------------
LBound in PureBasic is ALWAYS 0 !!!

In otzer programming languages it is possible to define arrays (i.e.) from 50 to 100. In this case LBOUND would return 50. If you would try to get an index outside the range [50-100] an error would occur.

cu, helpy

Falko · Post by **Falko** » Thu Dec 23, 2004 4:51 pm

Thanks @helpy
Than i can't convert this Source from Powerbasic to Purebasic.
:roll:

It's very usefull to make a own Excel-Sheet over Purebasic.

Falko

helpy · Post by **helpy** » Thu Dec 23, 2004 5:08 pm

Falko wrote:Thanks @helpy
Than i can't convert this Source from Powerbasic to Purebasic.
:roll:

Why not? As I can see, in the original code there are only zero based arrays used. So ... instead of LBound(...) you can insert the value "0" (zero).

cu, helpy