13-07-2014, 09:32 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
كما يعرف البعض انه لا يمكن الوراثه مستقبلا من الاصناف المختومه لاكن دائم لكل داء دواء
هناك حل و ايضا هناك قواعد/
1-يمنع حذف التعليق Sealed لان هكذا لن يصبح مختوم واحنى تمرينا عن تخطي الاصناف المختومه
2- يمنع حذف اي صنف ما ابي يجي واحد مسوي ذكي ييحذف Class2 هههههه
الكود .. طبعنا نعمل على Console
سهلت عليكم جدا جدا جدا و وضعت كل شيء فقط عليك القيام بتخطي الختم على الصنف TClass1 ليمكن للصنف TClass2 الوراثه منه بدون حذف الختم 
بتوفيق للجميع
السلام عليكم ورحمة الله وبركاته
كما يعرف البعض انه لا يمكن الوراثه مستقبلا من الاصناف المختومه لاكن دائم لكل داء دواء
هناك حل و ايضا هناك قواعد/
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.
بتوفيق للجميع