Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
Are you talking about Grid fields?mol wrote:I think, I found a problem with HMG 3.0.34
Variables are not assumed as memory variables rather as fields.
When I have opened database, my variable is taken from database, though PRIVATE DECLARATION
No!Are you talking about Grid fields?
It should be not related with HMG library in any way, but, I'll check your sample.mol wrote:No!Are you talking about Grid fields?
Simply, I have opened database (DBF/CDX no matter what's structure)
Then I call my standard function which was working good from 1 year.
And - it causes error.
First - I've added some msgboxes to find what's going on.
But it didn't help.
So, I've compiled with debugger and found that values from my memory variable declared!!! as private is ignored, and it its place is taken value from my opened database.
I think it's caused by compiler directives - assume alle variables as fields or something like that (I don't know how it's named in harbour, there was something like that in clipper...).
I can prepare tomorrow a little sample if it will help you find this ?bug?.
I think it's a bug because after changing name of memory variable everything works OK.
Regards, Marek
Code: Select all
#include <hmg.ch>
function Main
local aFields := { { "Operator","C",3,0 }, { "Op_name","C",20,0 } }
private Operator, cString1, cString2, cString3, cString4
if !file("ops")
DBCreate( "ops", aFields )
endif
use ops new
index on Operator to ops1
zap
append blank
replace;
ops->Operator with "001",;
ops->Op_Name with "Test"
// operator is declared as private above
Operator := "+"
cString1 := "111"
cString2 := "999"
cString3 := cString1 + Operator + cString2
cString4 := cString1 + m->Operator + cString2
msgBox( "The value of 'operator' is: -->" + Operator + "<---" + chr(10)+ ;
"The value of 'm->operator' is: -->" + m->Operator + "<---" + chr(10)+ ;
"cString3 value is: -->" + cString3 + "<---" + chr(10) + ;
"cString4 value is: -->" + cString4 + "<---")
return