n="justify"> d;
Додаток 4
TSampleClass = class (TObject)// Клас з властивістю
FSample: integer;
procedure SetProp: TPropType;// Метод запісіGetProptNewValue : TPropType);// Метод читання
// Оголошення властивості
property SampleProp; TPropType read GetProp write SetProp; d ;
Додаток 5
function TSampleClass.GetProp: TPropType;: = SampleField;; TMyClass.SetProp (Value: TPropType);: = Value;;
Додаток 6
TSampleClass = class (TObject): integer; SampleProp: TPropType read FSampleFSample;;
Додаток 7
TCircle = class
Х, у: double;: double; area: double; virtual; circumference: double; inside (x, y: double): boolean: virtual;
end; = class (TCircle): double; area: double; override: circumference2: double; inside (xy: double): boolean; override;
end;
Додаток 8
оператор_1;
оператор_2; ісключітелиная_сітуація_1 do оператор_3; ісключітельная_сітуація_2 do оператор_4; оператор_N;;
Додаток 9
оператор_1;
оператор_2;
finally
оператор_3;
оператор_4;
оператор_N;;
Додаток 10
type = class
х, у: double;: double; area: double; circumference: double; inside (x, y: double): boolean;;
Додаток 11
var: TCircle;
Додаток 12
TRing = class (TCircle): double; area: double; circumference2: double; inside (xy: double): Boolean;;
Додаток 13
Туре
ідентіфікатор_тіпа_1 = integer;
Додаток 14
ідентіфікатор_пере ме нной_1: integer ;
Додаток 15
Цілі типи Object Pascal
Позначення тіпаДіапазон значенійЗанімаемий обсяг памятіБез знакаByte 0 ... 2558 біт Wo...