18 lines
327 B
ObjectPascal
18 lines
327 B
ObjectPascal
type
|
|
cc=class
|
|
public
|
|
public_var:real;
|
|
procedure public_metod;begin end;
|
|
internal
|
|
internal_var:real;
|
|
procedure internal_metod;begin end;
|
|
protected
|
|
protected_var:real;
|
|
procedure protected_metod;begin end;
|
|
private
|
|
private_var:real;
|
|
procedure private_metod;begin end;
|
|
end;
|
|
|
|
begin
|
|
end. |