盒子论坛 v2.1

Type
  AClass = class(XXX)
  private
    私有
  protected
    内部
  public
    公开
  end;

如果你说的是数据类型，可以不定义在Interface段，放到Impl实现段中，就嗵本单元内使用。
----------------------------------------------
delphi|vue|golang hnysoft|hnyerp+mes+srm

作者：

emailx45 (emailx45)	▲▲▲▲△	-
	普通会员

2021/11/10 6:29:20

3楼：

unit XYZ;
...
interface  // section to export to external units
...
type
... ABCexternal = class // class(EFG)
... private  ( all class in this unit )
... strict private ( just this class )
... protected (this unit and sub-class (inheriting) in another units
... published ( = public for Object Inspector use )
... public (all classes in all units )
...
implementation // section use internal this unit

type   // only this class
... ABCinternal = class // class(EFG)
... private
... strict private
... protected
... published
... public

end.
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

janker (janker)	★☆☆☆☆	-
	盒子活跃会员

2021/11/10 13:20:15

4楼：

现在的语法还有 strict private,同一个单元的其它类都不能访问
----------------------------------------------
-

作者：

lookhere (lalala)	★☆☆☆☆	-
	普通会员

2021/11/10 22:07:18

5楼：

就是这样，如果你说的是数据类型，可以不定义在Interface段，放到Impl实现段中，就嗵本单元内使用。
interface
type
  TClassA = class
  private
    fInner: Pointer
  public
    procedure aaa;
  end;
implementation
type
  TInnerType = class/record/xxx
    xxx: intger;
  end;

end;
----------------------------------------------
-

作者：

emailx45 (emailx45)	▲▲▲▲△	-
	普通会员

2021/11/10 22:25:34

6楼：

any FRIEND-class can access PRIVATE attributes/methods from MOTHER-class

->> to AVOID IT, do it "STRICT PRIVATE"

type
  MOTHER-CLASS....
   private  //<----------
      Mother-Fields...
  end;

   FRIEND-class = class(MOTHER-class)
   ...

implementation

FRIEND-class.Methods
begin
showmessage( Mother-Fields )
end;
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

msdtx (yong)	★☆☆☆☆	-
	普通会员

2021/11/14 12:22:29

7楼：

现在是在interface里申明一种兼容类型，implementation里复制出来用absolute还原。丑归丑，还能用。
传说中的名字空间污染...
----------------------------------------------
-

作者：

bluestorm8 (bluestorm)	▲▲△△△	-
	普通会员

2021/11/15 12:23:36

8楼：

可以在implementation前只定义接口(interface), 类的定义放到implementation后面
----------------------------------------------
-

作者：

wr960204 (武稀松)	★☆☆☆☆	-
	盒子活跃会员

2021/11/15 16:00:15

8楼：

声明接口或者抽象类，在implementation里面实现，或者在其他单元的implementation段实现
----------------------------------------------
武稀松http://www.raysoftware.cn

作者：

flcop (flcop)	▲▲▲▲△	-
	普通会员

2021/11/15 22:31:47

9楼：

如果delphi的版本不低于delphi2005,可以使用嵌套类:

{ ... }

interface

type
  TMyClass = class
  private type
    TMyChild = class
    private
      FValue: Integer;
    end;
  private
    FMyChild: TMyChild;
  end;

implementation

{ ... }

当然，这种方式也有缺点，一是可读性下降了，2 二是一旦嵌套类可复用，比较难剥离，所以最好根据实际场景来权衡。
----------------------------------------------
-

信息

登陆以后才能回复