Delphi Implementation MVC_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi Implementation MVC

作者：闵涛文章来源：闵涛的学习笔记点击数：1596 更新时间：2009/4/23 18:30:27

sp;   OnChanged : TNotifyChange;        // Vereinbarung einer
    ...                              // Referenzvariablen/Ereignismethode
end;

IMPLEMENTATION
// ======================================================================
...
procedure TPerson.SetGroesse (gr : real);
(* ----------------------------------------- *)
begin
Groesse := gr;
if assigned(OnChanged)            // Ereignis auslösen
then OnChanged;
end;

procedure TPerson.Abnehmen;
(* ----------------------------------------- *)
begin
Gewicht := Gewicht - 1;
if assigned(OnChanged)             // Ereignis auslösen
then OnChanged;
end;

...
END. // ----- UNIT -------

In der GUI-Klasse sorgt die Methode Person.OnChanged in FormCreate dafür, daß bei jedem Event die GUI-Methode MaskeAktualisieren ausgeführt wird.

Leider kann das in bestimmten Fällen zu Problemen führen. Editfelder, die sich gut für kombinierte Ein- und Ausgabe eignen, dürfen nicht für die Ausgabe von Rechenoperationen angesprochen werden; es sind also andere GUI-Komponenten dafür erforderlich. Die korrekte Initialisierung von Gewicht und Groesse
mit 0 führt zu einer Exception wegen der unerlaubten Division durch Null bei Errechnung des BMI.
Reine Textfelder sind unproblematisch.

unit uFenster;

INTERFACE
// ======================================================================
uses
...
uPerson;

type
TFensterFrm = class(TForm)
    GroesseLbl : TLabel;
    ...

    procedure FormCreate (Sender: TObject);
    procedure updModelBtnClick (Sender: TObject);
    procedure AbnehmBtnClick (Sender: TObject);
    procedure EndeBtnClick (Sender: TObject);

   private
    Person : TPerson;              // --- Model PERSON
    procedure Init;
    procedure DatenAktualisieren; // --- hier der Datentransport
    procedure MaskeAktualisieren;
   public
end;

var
FensterFrm: TFensterFrm;

IMPLEMENTATION
// ======================================================================
{$R *.DFM}

procedure TFensterFrm.FormCreate(Sender: TObject);
// ----------------------------------------------------------------------
begin
FensterFrm.Init;
Person := TPerson.Create;
Person.OnChanged := MaskeAktualisieren; // Methodenzeiger mit Methode
end;                                     // verknüpfen

...
procedure TFensterFrm.DatenAktualisieren;
// ----------------------------------------------------------------------
// wie vorher
...
procedure TFensterFrm.updModelBtnClick(Sender: TObject);
// ----------------------------------------------------------------------
begin
DatenAktualisieren;
end;

procedure TFensterFrm.MaskeAktualisieren;
// ----------------------------------------------------------------------
begin
NameEdt.Text := Person.GetName;
BmiEdt.Text  := FloatToStr(Person.HatBMI);
end;

procedure TFensterFrm.AbnehmBtnClick(Sender: TObject);
// ----------------------------------------------------------------------
begin
Person.Abnehmen;
end;

end. // ------ UNIT -------

Bewertung

1. Polling

Manuelles Polling (1.1. und 1.2) haben sich seit 10 Jahren im Unterricht bewährt und sind unaufwendig. An unserer Schule werden alle Programme, beginnend im Anfangsunterricht mit einer Fachklasse bis zu großen Projekten, in dieser Weise von den Schülern bearbeitet. Die Datenklassen sind frei von jeder technischen Erweiterung. Das erlaubt eine sehr einfache und klare OOA und Implementierung.

2. Observer Pattern Design

Viel Technik, wenig Erkenntnisgewinn (s.o.). Der Programmieraufwand pro observiertem Objekt ist so umfangreich, daß er sich für den Unterricht verbietet, wenn Schüler den kompletten Observer-Code schreiben sollten, zumal das durchaus nicht trivial ist. Eine Möglichkeit wäre, das ganze Paket als Bibliothek abzulegen.
Bei dieser als auch der dritten Variante bleiben Fachklassen nicht von proprietärem Code frei, der sie mit dem Betriebssystem verknüpft, was einer Portierung im Wege steht. Der schöne Anspruch, das in Fachklassen auch nur Anwendungsdaten und Anwendungslogik enthalten sein sollen, ist dahin.

3. Selbstgeschriebene Ereignisroutinen

Die selbstgeschriebene Ereignissteuerung ist eher eine Bastlerlösung. TNotifyChange ist ein Prozedurtyp, ein ebenso mächtiges wie undurchsichtiges Konstrukt. Onchange eine Prozedurvariable, also gleichermaßen Attribut und Prozedur und damit proprietär belastet. Die o. g. Restriktionen und Fehler lassen Zweifel an einen routinemäßigen Einsatz im Unterricht aufkommen.

-------------------
Literatur u. Links

Hilfehandbuch Delphi 7
Amrhein, B.: Designpattern für Graphische Benutzeroberflächen
                     http://www.hta-be.bfh.ch/~amrhein/Skripten/Swing/Pattern.pdf
Höstklint, C.: Simple Observer Pattern
                      http://www.delphi3000.com/member.asp?ID=9713
Paulus, H.: Das MVC-Konzept. (Schöne Präsentation)
               http://informatikag.bildung-rp.de/assets/download/D1-Paulus-Farben.pps