ok thank you work around https://drive.google.com/file/d/1W2MGUhPNkplqlN8Q0OArgKl4Z1rECWG3/view?usp=sharing #include once "registerclasses.bas" #include once "core.bas" #include once "classes.bas" #include once "component.bas" #include once "controls.bas&...

I wrote a short article about "How to Manage Dynamic Memory (Allocation / Deallocation) in FB" . thanks fnx but i want to know with "new" what i shoud use to free for real the memory? And once again: type dummy extends object end type type x extends dummy z as byte end type dim ...

You're the programmer. You are the one who knows whether a pointer is "clean" or not. If you can't always make that clear, assign a NULL to the pointer after you delete the memory. I don't see any problem or "mess" with with FB. Having the language set pointers to NULL isn't som...

D.J.Peters wrote:

Code: Select all

type dummy extends object
end type
type x extends dummy
  z as byte
end type
dim as x ptr y=new x
print y
delete y : y=0
print y
y->z = 10
print y->z
sleep

THANK YOU, BUT SEEMS TO BE A WORK AROUND...IS THE POINTER CLEAN ANF FREE OR IS A FB MESS?

fxm wrote:Yes, it's right that initial code has a double reason to crash!

THE INITIAL CODE DONT CRASH IN MY MACHINE...WIN7..SEEM NOT CLEAR THE PONTER

type dummy extends object end type type x extends dummy z as byte end type dim as x ptr y=new x print y delete y : y=0 print y y->z = 10 print y->z sleep Const HEAP_NO_SERIALIZE = &H1 Const HEAP_ZERO_MEMORY = &H8 Declare Function HeapFree Lib "kernel32" Alias "HeapFree" ...

'''tll me if that right?!

type dummy extends object
end type

type x extends dummy
z as byte
end type


dim as x ptr y=new x

print y

sleep 5000

deallocate y
delete y

print y
y->z = 10

print y->z

sleep

you will find here all of my sources
https://osdn.net/projects/sfnet_fbwingui/releases/

go to:
https://osdn.net/projects/sfnet_fbwingui/releases/
some one save my all work in source forge
you will find here all of my sources

Xusinboy Bekchanov wrote:

nastasa eodor wrote:second is mine

If possible, open the source for this too.

i said to you my old computer crush...cant save anythings from him...i lost everything...but in the next day i will write for you a new code, ok?

grindstone wrote:

Now I am wondering if using write statement would be a better option?

That won't work. The WRITE- statement also adds a LF/CR that can not be suppressed by a semicolon. In addition to it the string is automatically put in quotation marks.

use "put" not cr lf

nice and interesting.

the controls you say are packaged in a DLL library are Delphi controls ... so the source is written in pascal. They can be ported in FreeBasic but need times. I can send you a copy of Delphi 7 if you want, a licensed, functional one. if you know basic you will learn extremely fast and pascal. there...

tell me where you get that...because along of time i wrote a least 3 wrappers TPrintDialog http://visualfb.freewebspace.com TREBAR I do not know where I downloaded, but it is available in your GUITK. I do not know it from anyone, or yours, or aloberoger: TPrinter #Ifndef CRLF #Define CRLF Chr(10,13...