HMG Create object

[miszler.zoltan]

Hello guys!

The following structure could achieve what way?

myCar = new Object()
myCar.make = "Ford"
myCar.model = "Mustang"
myCar.year = 1969

MsgInfo( 'My Car: ' + myCar.make +' '+ myCar.model )

Best regards, Zoltan

[mustafa]

Code: Select all

#include "hmg.ch"

Function Main()

 myCar_make  = " Ford "
 myCar_model = " Mustang"
 myCar_year  = " 1969"

MsgInfo( 'My Car: ' + myCar_make + myCar_model + myCar_year )

Return

Hello Zoltan
Have if you can serve
Mustafa

[miszler.zoltan]

Hello Mustafa!
Not variables, or array, but I object to solve ...

[luisvasquezcl]

Hi,
you can do the following:
#include "hbclass.ch"
#include "hmg.ch"

proc main
local Mycar := Car()
myCar:make = " Ford "
myCar:model = " Mustang"
myCar:year = " 1969"

MsgInfo( 'My Car: ' + myCar:make + myCar:model + myCar:year )
return

class car
data make, model, year
end class
i hope it will be helpful
Best regards
Luis Vasquez

[luisvasquezcl]

They can initiate variables with values as follows:
CLASS Car
DATA Make AS CHARACTER INIT ""
DATA Model AS CHARACTER INIT ""
DATA Year AS CHARACTER INIT ""
END CLASS

[Amarante]

Hi Zoltan,
There you will find an example I made using objects as well as SQL.
http://hmgforum.com/viewtopic.php?f=37&t=4293#p40736

I hope you find it useful.
Regards
Amarante

[miszler.zoltan]

Gentlemen!
Thanks to the joint thinking and answers!