PureBasic Forums - English

Another solution:


EnableExplicit

Structure Type
x.f
y.f
z.f
EndStructure


Procedure init(_x.f,_y.f,_z.f, *a.Type)
*a\x=_x.f
*a\y=_y.f
*a\z=_z.f
EndProcedure


Define other_var.Type

init(1,2,3,@other_var)


Debug other_var\x ;1.0
Debug other_var\y ;2.0
Debug other_var\z ;3.0

In addition to the examples given before, here an example of a very common use case, namely, a structure defined in a module and called in other modules.

DeclareModule module1
Structure Writer
name.s
surname.s
EndStructure
;.....
EndDeclareModule

Module module1
;here can be empty, but it ...

There are cases where a variable of type List is used only within a procedure (and declared as Protected).

In order to avoid “ memory leak ”, is it necessary to use the FreeList() command before procedure exit?
The same question in the case of a variable of type Map or Array .
A simple example ...

I remembered.

For example:

#file=200
If CreateFile(#file,"test.txt")
CloseFile(#file)
Else
Debug ("Error")
EndIf

For #file =200 it works.
For #file =2000 it does not compile, the following error message is displayed:

" File object number is very high (over 1000), are You sure of that ?"

It ...

I met a similar issue.
To open/read/close a file I used for number to identify the file a number #file (instead #PB_Any) obtained from Enumeration

E. g.:
Enumeration
#window
...
a lot of gadgets, menu, etc
...
#file
EndEnumeration

Error message was: #file is to large or some like that, i do not ...