Hi all,
Is this bug or feature ?
proc main()
memvar First, Second
local l1 := 'First', l2 := '&First'
private First := "FIRST", Second := "SECOND"
dbCreate('test', {{'FIRST', 'C', 5, 0}})
dbUseArea(.t.,, 'test'); dbAppend(); FieldPut(1, '11111')
? '1', &l1
? '2', memvar->&l1
? '3', &l2
memvar->&l1 := 'second'
field->&l1 := 'bucket'
? '4', &l1
? '5', memvar->&l1
? '6', &l2
dbCloseArea()
inkey(0)
return
Clipper output:
1 11111
2 FIRST
3 11111
4 bucke
5 second
6 SECOND
Harbour output:
1 11111
2 FIRST
3 11111
4 bucke
5 second
Error BASE/1003 Variable does not exist: BUCKE
best regards,
Saulius
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
