个人觉得结构就是一个格式化的字符串，它和类有些类似，可以继承，但没有封装方法。

如果把结构看做类，那么结构的成员就相当于类的属性。

下面是point结构的一个定义
Type POINTAPI
    x As Long
    y As Long
End Type

通过point.x来访问结构的成员x，这跟我们的类不是很像吗？

我们来构建一个point类吧。
第一步，构建一个通用类struct
**************************************************
*-- Class:        struct (d:\documents\visual foxpro 项目\myclass.vcx)
*-- ParentClass:  custom
*-- BaseClass:    custom
*-- Time Stamp:   11/03/22 11:51:11 AM
*****************设置一个通用类*******************
DEFINE CLASS struct AS custom

    *-- 用以储存或设置结构体数据
    struct = ""
    Name = "struct"


    *-- 设置结构体
    PROCEDURE set
    ENDPROC

ENDDEFINE
*
*-- EndDefine: struct
**************************************************

第二步，构建point类

*****************************************************
*-- Class:        _point (d:\documents\visual foxpro 项目\myclass.vcx)
*-- ParentClass:  struct (d:\documents\visual foxpro 项目\myclass.vcx)
*-- BaseClass:    custom
*-- Time Stamp:   11/03/22 08:59:09 PM
********point类和系统同名，所以加了条下划线**********
DEFINE CLASS _point AS struct


    *-- x坐标
    x = .F.

    *-- Y坐标
    y = .F.


*!*    PROCEDURE struct_assign
*!*        LPARAMETERS vNewVal
*!*        *To do: Modify this routine for the Assign method
*!*        THIS.struct = m.vNewVal
*!*        this.x=CTOBIN(SUBSTR(m.vnewval,1,4),"4rs")
*!*        this.y=CTOBIN(SUBSTR(m.vnewval,5,4),"4rs")
*!*    ENDPROC


    PROCEDURE Init
        this.struct=REPLICATE(CHR(0),8) &&初始化结构体
    ENDPROC


    PROCEDURE set
            PARAMETERS xorcstruct,y

            DO case
                CASE PARAMETERS()=1 AND VARTYPE(xorcstruct)=="C" && 注意这里的xorcstruct不是数字，而是8字节字符，我并没有对字符串的有效性进行检查。
                this.x=CTOBIN(SUBSTR(xorcstruct,1,4),"4rs")
                this.y=CTOBIN(SUBSTR(xorcstruct,5,4),"4rs")
                this.struct=xorcstruct
            CASE PARAMETERS()=2
                this.x=xorcstruct
                this.y=y
                this.struct=BINTOC(xorcstruct,"4rs")+BINTOC(y,"4rs")
            ENDCASE
        *!*PARAMETERS x,y
        *!*this.struct=BINTOC(x,"4rs")+BINTOC(y,"4rs")

    ENDPROC


ENDDEFINE
*
*-- EndDefine: _point
**************************************************

第三步，实例化
*!* pointstructtest.prg
CLEAR
DECLARE integer GetCursorPos IN WIN32API string@
SET CLASSLIB TO "D:\Documents\Visual FoxPro 项目\myclass.VCX"
opoint=CREATEOBJECT("_point")
cstruct=opoint.struct
getcursorpos(@cstruct)
opoint.struct=cstruct
opoint.set(cstruct)
?opoint.x
?opoint.y
release opoint
clear dlls

************end**************

不知道这样的理解对大家有没有帮助？？？

[此贴子已经被作者于2022-11-6 16:01编辑过]

最大区别是结构的各成员有严格的存储次序，类属性无此要求

[此贴子已经被作者于2022-11-7 12:21编辑过]

收到的鲜花

• sam_jiang 于 2022-11-07 14:38 送鲜花  1朵  

向各位学习！

可以说语句表达形式类似（写法有点像），实质就不是一回事。
结构是不同类型成员紧密有序集合的数据块（同一空间）。
结构还有特别的地方，就拿DBF说，每条记录就是一个结构块，声明一个相同结构的东东，套在记录的上就可以直接按结构成员读写每条记录字段的数据。就好象拿个饼印模在面团上面压盖，就可以压出一个一个一样的饼。这饼印就是结构，饼就是每条记录。

再来一个rectangle结构

类定义如下：
**************************************************
*-- Class:        rectangle (d:\documents\visual foxpro 项目\myclass.vcx)
*-- ParentClass:  struct (d:\documents\visual foxpro 项目\myclass.vcx)
*-- BaseClass:    custom
*-- Time Stamp:   11/07/22 04:18:08 PM
*
DEFINE CLASS rectangle AS struct

    *-- 左上角x坐标
    x = .F.

    *-- 左上角y坐标
    y = .F.

    PROCEDURE set
        PARAMETERS xorcstruct,y,nwidth,nheight

        DO case
            CASE PARAMETERS()=1 AND VARTYPE(xorcstruct)=="C" && 注意这里的xorcstruct不是数字，而是16字节字符，我并没有对字符串的有效性进行检查。
            this.x=CTOBIN(SUBSTR(xorcstruct,1,4),"4rs")
            this.y=CTOBIN(SUBSTR(xorcstruct,5,4),"4rs")
            this.width=CTOBIN(SUBSTR(xorcstruct,9,4),"4rs")
            this.height=CTOBIN(SUBSTR(xorcstruct,13,4),"4rs")
            this.struct=xorcstruct
        CASE PARAMETERS()=4
            this.x=xorcstruct
            this.y=y
            this.Width=nwidth
            this.Height=nheight
            this.struct=BINTOC(xorcstruct,"4rs")+BINTOC(y,"4rs")+BINTOC(nwidth,"4rs")+BINTOC(nheight,"4rs")
        OTHERWISE
            RETURN .f.
        ENDCASE
    ENDPROC

ENDDEFINE
*
*-- EndDefine: rectangle
**************************************************

获得_screen的rect

*getscreenrect.prg
CLEAR
DECLARE inte GetWindowRect IN WIN32API inte,string@
cstr=REPLICATE(CHR(0),16)
getwindowrect(_screen.HWnd,@cstr)
SET CLASSLIB TO myclass
orect=CREATEOBJECT("rectangle")
orect.set(cstr)
?"获得orect的端点值"
?orect.x
?orect.y
?orect.width
?orect.height
?"获得_screen的端点值，看是否相同"
?_screen.Left
?_screen.Top
?_screen.Width
?_screen.Height
RELEASE orect
CLEAR DLLS
SET CLASSLIB TO

这样的帖子多多益善!

你这个比喻比较形象，一条记录就相当于一个结构体。

抛砖引玉，在各位大佬面前班门弄斧了。。。

多多益善

多多益善