+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : الأصناف المختومة (/showthread.php?tid=6317)
الأصناف المختومة - ANAS AL OTAIBI - 13-07-2014
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
كما يعرف البعض انه لا يمكن الوراثه مستقبلا من الاصناف المختومه لاكن دائم لكل داء دواء
هناك حل و ايضا هناك قواعد/
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.
بتوفيق للجميع