Funktion und Darstellung trennen

[guidok]

Zitat:

Also ist damit gemeint, z.B. umfangreiche Berechungen, Speicherungen in Datei etc. in eigene Proceduren zu packen und diese dann aufzurufen??

Das ist nicht unbedingt damit gemeint (das ist eher prozedurale Programmierung).


Die Daten und deren Verarbeitung sollten in einer von der GUI getrennten Stuktur abgelegt sein.

Beispielsweise ein StringGrid (GUI), welches die Daten aus einer Tabelle (Datentabelle, z.B. eine Collection) nur darstellt. Änderungen werden nur an der Tabelle durchgeführt und anschließend wird das Grid neu angezeigt.

Nicht, weil es einfach "nur" schöner ist, sondern um einerseits bei Änderungen an der GUI an der Datenlogik nichts verändern zu müssen und andererseits auch, um bei Änderungen an der Datenlogik an der GUI nichts verändern zu müssen.

Die praktische Umsetzung ist häufig leider nicht ganz einfach, ich würde die Daten in ein Objekt verpacken und die entsprechenden Methoden für den Zugriff bereit stellen.

Ich versuche mal ein Beispiel:

Hier wird bei ButtonClick ein EditDialog ausgeführt, dem ein neuer Datensatz übergeben wird, der in diesem Fall NEU (Add) hinzugefügt wurde. Das Datenobjekt "Users" stellt dazu die Methode "Add" bereit und diese liefert einen leeren Datensatz vom Typ TUser zurück (hier verkürzt gezeigt).

Bei Doppeklick auf die Listbox, wird ebenfalls der EditDialog geöffnet, diesmal mit den Daten eines bestehenden Users, der über den Index (der Index der Liste entspricht dabei dem Index der Kollektion, das ist wichtig!) aus der Kollektion geholt wird.

Die Prozedur "UpdateList" hat nichts weiter zu tun, als die Listenanzeige neu anzuzeigen.

Delphi-Quellcode:

  //Einzelnes User-Objekt
  TUser = class(TCollectionItem)
    ...
    public
      property Name: String read...
      property Passwort: String read...
    end;

  //Users Kollektion, hier steckt das "Add"
  TUsers = class(TCollection)
    ...
  public
    //Add ist eine Funktion mit einem Rückgabewert vom Typ TUser
    function Add: TUser;
  end;

  //Hier wird ein neuer User eingefügt und seine Daten bearbeitet
procedure TBenutzerverwaltung.btNeuClick(Sender: TObject);
begin
  //Neuen Eintrag anlegen
  fEditDialog.Edit(Users.Add);
  UpdateList;
end;

procedure TfBenutzerverwaltung.ListBox1DblClick(Sender: TObject);
begin
  //Eintrag bearbeiten
  fEditDialog.Edit(Users[Listbox1.ItemIndex]);
  UpdateList;
end;

procedure TBenutzerverwaltung.UpdateList;
var i: Integer;
begin
  Listbox1.Clear;
  if Users.Count > 0 then begin
    for i := 0 to Users.Count - 1 do begin
      Listbox1.Items.Add(Users[i].Name);
    end;
  end;
end;

Alle Klarheiten beseitigt?