وضع الأوامر دلفي

لا داعي للقلق بشأن هذا الأمر.

نمط الوحدة;

واجهة

this.usesDialogs;

يكتب

TAudioPlayer=class;

TCommand=class

عام

تنفيذ الإجراء؛ الظاهري؛ مجردة؛

نهاية؛

TPlayCommand=class(TCommand)

خاص

مشغل الصوت: مشغل الصوت؛

عام

تنفيذ الإجراء؛ تجاوز؛

الإجراءPlaycommand(AP:TAudioPlayer);

نهاية؛

TStopCommand=class(TCommand)

خاص

مشغل الصوت: مشغل الصوت؛

عام

تنفيذ الإجراء؛ تجاوز؛

الإجراءStopComman(AP:TAudioPlayer);

نهاية؛

TRewindCommand=class(TCommand)

خاص

مشغل الصوت: مشغل الصوت؛

عام

تنفيذ الإجراء؛ تجاوز؛

الإجراءRewindCommand(AP:TAudioPlayer);

نهاية؛

TKeyPad=class

خاص

PlayCommand:TCommand;

StopCommand:TCommand;

RewindCommand:TCommand;

عام

buildorCreate(PlayC,StopC,RewindC:TCommand);virtual;

الإجراء () ؛

الإجراء () ؛

الإجراء الترجيع () ؛

نهاية؛

TAudioPlayer=class

عام

الإجراء () ؛

الإجراء () ؛

الإجراء الترجيع () ؛

نهاية؛

TClient=class

خاص

لوحة المفاتيح: لوحة المفاتيح؛

مشغل الصوت: مشغل الصوت؛

عام

buildorCreate();

اختبار الإجراء();

نهاية؛

تطبيق

{لوحة المفاتيح}

buildorTKeyPad.Create(PlayC,StopC,RewindC:TCommand);

يبدأ

PlayCommand:=PlayC;

StopCommand:=StopC;

RewindCommand:=RewindC;

نهاية؛

الإجراءTKeyPad.play;

يبدأ

PlayCommand.execute;

نهاية؛

الإجراءTKeyPad.rewind;

يبدأ

RewindCommand.execute;

نهاية؛

الإجراءTKeyPad.stop;

يبدأ

StopCommand.execute;

نهاية؛

{TAudioPlayer}

الإجراءTAudioPlayer.play;

يبدأ

ShowMessage(´play´);

نهاية؛

الإجراءTAudioPlayer.rewind;

يبدأ

ShowMessage(´rewind´);

نهاية؛

الإجراءTAudioPlayer.stop;

يبدأ

ShowMessage(´stop´);

نهاية؛

{تبلايكوماند}

الإجراءTPPlayCommand.execute;

يبدأ

موروث؛

AudioPlayer.play();

نهاية؛

الإجراءTPPlayCommand.Playcommand(AP:TAudioPlayer);

يبدأ

self.AudioPlayer:=AP;

نهاية؛

{TRewindCommand}

الإجراءTRewindCommand.execute;

يبدأ

موروث؛

AudioPlayer.Rewind;

نهاية؛

الإجراءTrewindCommand.RewindCommand(AP:TAudioPlayer);

يبدأ

مشغل الصوت:=ap;

نهاية؛

{TStopCommand}

الإجراءTStopCommand.execute;

يبدأ

موروث؛

AudioPlayer.Stop;

نهاية؛

الإجراءTStopCommand.StopComman(AP:TAudioPlayer);

يبدأ

مشغل الصوت:=ap;

نهاية؛

{عميل}

builderTClient.Create;

يبدأ

AudioPlayer:=TAudioPlayer.Create();

نهاية؛

الإجراء TClient.test;

فار

PlayCommand:TCommand;

StopCommand:TCommand;

RewindCommand:TCommand;

يبدأ

PlayCommand:=TPPlayCommand.Create;

StopCommand:=TStopCommand.Create;

RewindCommand:=TRewindCommand.Create;

KeyPad:=TKeyPad.Create(PlayCommand,StopCommand,RewindCommand);

KeyPad.stop;

KeyPad.play;

KeyPad.rewind;

KeyPad.Stop;

نهاية؛

نهاية.