AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Funktion und Darstellung trennen

Ein Thema von scrat1979 · begonnen am 17. Dez 2008 · letzter Beitrag vom 18. Dez 2008
Antwort Antwort
guidok

Registriert seit: 28. Jun 2007
417 Beiträge
 
#1

Re: Funktion und Darstellung trennen

  Alt 18. Dez 2008, 07:07
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?
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz