الأصناف المختومة

[ANAS AL OTAIBI]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

كما يعرف البعض انه لا يمكن الوراثه مستقبلا من الاصناف المختومه لاكن دائم لكل داء دواء

هناك حل و ايضا هناك قواعد/

1-يمنع حذف التعليق Sealed لان هكذا لن يصبح مختوم واحنى تمرينا عن تخطي الاصناف المختومه
2- يمنع حذف اي صنف ما ابي يجي واحد مسوي ذكي ييحذف Class2 هههههه
الكود .. طبعنا نعمل على Console

PHP كود :

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

{By ANAS AL OTAIBI - Good Luck}

uses
  System.SysUtils;

 type
 TClass1 = class Sealed
   private
   Value:Integer;
   Text:String;
   procedure Show;
 end;

 TClass2 = class (TClass1)
   procedure Show;
 end;

{ TClass1 }

procedure TClass1.Show;
begin
Inc(Value);
end;

{ TClass2 }

procedure TClass2.Show;
begin
Writeln('(' + Text + ')' + ' ----- ' + IntToStr(Value) + ' ----- '  + className );
end;

Var
TMyClass:TClass1;

begin
TMyClass := TClass2.Create;
TMyClass.Text := 'ANAS';
TMyClass.Value := 13;
TMyClass.Show;
Readln;
end. 


سهلت عليكم جدا جدا جدا و وضعت كل شيء فقط عليك القيام بتخطي الختم على الصنف TClass1 ليمكن للصنف TClass2 الوراثه منه بدون حذف الختم
بتوفيق للجميع