دلفي تعليم

تعلم دلفي بالامثلة، ويوجد اكواد سورس كثيرة من أجل تعلم دلفي

  • الرئيسية
  • صفحة منتدى دلفي
  • بحـث
  • التسجيل
  • دخول
مرحبا بــالزوار الكــرام يشرفني أن أتقدم إلى السادة الكرام زوار هذا المنتدى أن يتفضلوا بتسجيل معنا وبطرح انتقاداتهم ونصائحهم واني سوف أتقبل كل نقد أو نصيحة بصدر رحب مع تمنياتي للجميع بكل نجاح والتقدم والازدهار والتوفيق ونحن نسعى في تقديم هذه المواضيع بكل اخلاص وغايتنا هي نيل رضاكم وحرصا منا على بلوغ أعلى مستوى في هذه اللغة -دلفي وغيرها - وتعتبر لغات البرمجة هي الوسيلة التي تمكننا من تخاطب مع حواسيبنا فإني أنصحك بها أيها الزائر فبها وبالعلوم الاخرى بلغت الامم أعلى درجات التقدم الازدهار وان تعلم اي لغة يكون في البداية صعب لكن مع قليل من الصبر والمثابرة يصبح تعلمها ممتعا ومفيدا في آن واحد و نصيحتي أن تستعملها في خدمة البشرية جمعاء وفي الاخير تقبلوا مني فائق التقدير والاحترام
منتدى دلفي تعليم يرحب بكم ويتمنى لكم قضاء وقت ممتع مع هذه المواضيع الشييقة والتي سأعرض من خلالها مواضيع حول دلفي وهي عبارة أمثلة متعددة ومتنوعة أي كل موضوع سحتوي على مثال توضيحي يفسر ذلك الموضوع مرحبا بكم أيها الزوار الكرام زوار منتدى دلفي تعليم ويسعدنا تكرمكم بتسجيل في المنتدى

تعريف كائن object في باسكال

دلفي تعليم :: منتديات البرمجة :: برمجة بــاللغة تربو باسكال

اذهب الى الأسفل

تعريف كائن object في باسكال

مُساهمة  ali1 في 5/4/2018, 1:12 pm

بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله صلى الله عليه وسلم

تعريف كائن object في باسكال

هذا الكائن object يملك 8 مناهج Methodes
الاول constructor وهو يقوم بحجز مساحة من الذاكرة للمتغييرين تابعين للكائن object
بواسطة الكلمة المحفوظة New .

والمنهج Methode الثاني هو destructor يقوم تحرير المساحة المحجوزة من الذاكرة للمتغييرين السابقين
بواسطة الكلمة المحفوظة Dispose .

والمنهج Methode الثالث يقوم بادخال قيمتين لعرضهما فيما بعد

والمنهج Methode الرابع Addition يقوم بجمع القيمتين المدخلتين
والمنهج Methode الخامس Soustraction يقوم بطرح القيمتين المدخلتين
والمنهج Methode السادس Multiplucation يقوم بضرب القيمتين المدخلتين
والمنهج Methode السابع Division يقوم بقسمة القيمتين المدخلتين
والمنهج Methode الثامن Affiche يقوم بعرض القيمتين المدخلتين

نصرح بمتغييرين من نوع الكائن هكذا
var ca1: pcalc1
وداخل جسم االبرنامج نحجز مساحة من الذاكرة للكائن
New(ca1, Initia);
ثم نرسل القيم لعرضها
ca1.Entree(12, 6)
ثم نعرض القيم
Dispose(ca1, Vide)

Methodes



الكود:


program ObTest;

{$APPTYPE CONSOLE}

 type

  pint = ^tint;
  tint = integer;

  pcalc1 = ^calc1;
  calc1 = object
    intA, intB: pint;
    constructor Initia;
    destructor Vide;
    procedure Entree(a, b: tint);
    function Addition: integer;
    function Soustraction: integer;
    function Multiplucation: integer;
    function Division: integer;
    procedure Affiche;
  end;

{ calc1 }

procedure calc1.Entree(a, b: tint);
begin
 intA^ := a;
 intB^ := b;
end;

constructor calc1.Initia;
begin
 New(intA);
 New(intB);
end;

destructor calc1.Vide;
begin
 Dispose(intB);
 Dispose(intA);
end;

function calc1.Addition: integer;
begin
 Result := intA^+intB^;
end;

procedure calc1.Affiche;
begin
  WriteLn(intA^, ' + ', intB^, ' ',Addition);
  WriteLn(intA^, ' - ', intB^, ' ',Soustraction);
  WriteLn(intA^, ' * ', intB^, ' ',Multiplucation);
  WriteLn(intA^, ' / ', intB^, ' ',Division);
end;

function calc1.Division: integer;
begin
 Result := intA^ div intB^;
end;

function calc1.Multiplucation: integer;
begin
 Result := intA^*intB^;
end;

function calc1.Soustraction: integer;
begin
 Result := intA^-intB^;
end;

var ca1: pcalc1;

begin

  New(ca1, Initia);
  ca1.Entree(12, 6);
  ca1.Affiche;
  Dispose(ca1, Vide);
  readln;

end.



_________________

ali1
مبرمج مجتهد

عدد المساهمات : 859
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

دلفي تعليم :: منتديات البرمجة :: برمجة بــاللغة تربو باسكال

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى