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?