AutomaticComponentToolkit/Examples/RTTI/RTTI_component/Implementations/Pascal/Interfaces/rtti_interfaces.pas at 113f40e973ed08d52f6f010a15bd1d6b2e7ae53d · vijaiaeroastro/AutomaticComponentToolkit · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
(*++

Copyright (C) 2021 ADSK

All rights reserved.

This file has been generated by the Automatic Component Toolkit (ACT) version 1.8.1-develop.

Abstract: This is an autogenerated Pascal interface definition file in order to allow easy
development of RTTI. The functions in this file need to be implemented. It needs to be generated only once.

Interface version: 1.0.0

*)

{$MODE DELPHI}
{$INTERFACES CORBA}
unit rtti_interfaces;

interface

uses
	rtti_types,
	Classes,
	sysutils;


type

(*************************************************************************************************************************
 Interface definition for Base
**************************************************************************************************************************)

IRTTIBase = interface
	['{6D5C237C-E78B-4657-B893-C8BE11BC6794}']

	function GetLastErrorMessage(out AErrorMessage: String): Boolean;
	procedure ClearErrorMessages();
	procedure RegisterErrorMessage(const AErrorMessage: String);
	procedure IncRefCount();
	function DecRefCount(): Boolean;
	function ClassTypeId(): QWord;
end;


(*************************************************************************************************************************
 Interface definition for Animal
**************************************************************************************************************************)

IRTTIAnimal = interface(IRTTIBase)
	['{8B7F3A98-3978-4C5F-90AC-F3D2FA2CC468}']

	function Name(): String;
end;


(*************************************************************************************************************************
 Interface definition for Mammal
**************************************************************************************************************************)

IRTTIMammal = interface(IRTTIAnimal)
	['{D9FFF1D8-FFFB-4EB4-AF81-25F9266571AA}']

end;


(*************************************************************************************************************************
 Interface definition for Reptile
**************************************************************************************************************************)

IRTTIReptile = interface(IRTTIAnimal)
	['{AB96FE19-A8D1-4610-8EE6-0EB949DFB518}']

end;


(*************************************************************************************************************************
 Interface definition for Giraffe
**************************************************************************************************************************)

IRTTIGiraffe = interface(IRTTIMammal)
	['{CFF41F38-7171-4D6E-A8DD-F0247C7C8FC2}']

end;


(*************************************************************************************************************************
 Interface definition for Tiger
**************************************************************************************************************************)

IRTTITiger = interface(IRTTIMammal)
	['{B3279D23-3017-4F14-BA80-2481BDC18F9D}']

	procedure Roar();
end;


(*************************************************************************************************************************
 Interface definition for Snake
**************************************************************************************************************************)

IRTTISnake = interface(IRTTIReptile)
	['{02B026CC-EBE1-4A50-80C5-3E0E00419AE4}']

end;


(*************************************************************************************************************************
 Interface definition for Turtle
**************************************************************************************************************************)

IRTTITurtle = interface(IRTTIReptile)
	['{D5071CDA-CFDB-41A2-BA42-CF2B3EB75381}']

end;


(*************************************************************************************************************************
 Interface definition for AnimalIterator
**************************************************************************************************************************)

IRTTIAnimalIterator = interface(IRTTIBase)
	['{30B15DE2-9548-4F1F-8A1C-28798D38ECF5}']

	function GetNextAnimal(): TObject;
	function GetNextOptinalAnimal(out AAnimal: TObject): Boolean;
	function GetNextMandatoryAnimal(out AAnimal: TObject): Boolean;
end;


(*************************************************************************************************************************
 Interface definition for Zoo
**************************************************************************************************************************)

IRTTIZoo = interface(IRTTIBase)
	['{4CE7CE21-14C4-4F98-801A-3E952D434366}']

	function Iterator(): TObject;
end;

implementation

end.