48 lines
864 B
Text
48 lines
864 B
Text
// Test1 is visible to Test2, but not vice versa.
|
|
// The local variables A, B, and C invisible to the outside world.
|
|
|
|
procedure Test1;
|
|
var A,B,C: integer;
|
|
begin
|
|
end;
|
|
|
|
procedure Test2;
|
|
var A,B,C: integer;
|
|
begin
|
|
end;
|
|
|
|
|
|
// Test1 is visible to all code that follows it.
|
|
// Test2 is invisible to the ouside world
|
|
|
|
procedure Test1;
|
|
var A,B,C: integer;
|
|
|
|
procedure Test2;
|
|
var A,B,C: integer;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end;
|
|
|
|
|
|
// Item1 and Test1 are only visible inside the object
|
|
// Item2 and Test2 are additional to inhered objects
|
|
// Item3 and Test3 are visible to the outside world
|
|
// Item4 is visible to the outside world and the IDE
|
|
|
|
|
|
type TMyObject = class(TObject)
|
|
private
|
|
Item1: integer
|
|
procedure Test1;
|
|
protected
|
|
Item2: integer
|
|
procedure Test2;
|
|
public
|
|
Item3: integer
|
|
procedure Test3;
|
|
published
|
|
property Item4: integer read FItem4 write FItem4;
|
|
end;
|