Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Wie ist der Programmierstil "professionell" (https://www.delphipraxis.net/171645-wie-ist-der-programmierstil-professionell.html)

Bentissimo 19. Nov 2012 08:49

AW: Wie ist der Programmierstil "professionell"
 
Hallo zusammen,

imho kann die Funktionalität am besten wie folgt umgesetzt werden:

1. Wie bereits mehrfach erwähnt, würde ich auf alle Fälle eine Methode eines DataModule dafür verwenden.
2. Eine mögliche Funktion sollte weder eine MessageBox ausgeben noch eine Exception auslösen, sondern als Rückgabewert einen Fehlercode liefern. Wie dieser dann ausgewertet und gegebenenfalls angezeigt wird, entscheidet der aufrufende Programmteil.
3. Statt das Dataset zu öffnen würde ich dynamisch eine Query erzeugen, ausführen, Ergebnis merken, schliessen und freigeben. Zur Ermittlung des Ergebnisses darf dann gerne ein try... except eingesetzt werden.

Ein Beispiel dafür könnte wie folgt aussehen:

Delphi-Quellcode:
const
  sqlCheckDeletable =
    'SELECT ...' + #13#10 +
    ' FROM ...' + #13#10 +
    ' WHERE ... = :AID';

  ecNotDeletable = 1;

function TMyDataModule.CheckDeletable(AID: Integer): Integer;
var
  Q: TQuery;
begin
  Result := 0;
  Q := TQuery.Create(nil);
  try
    Q.DataBaseName := '...';
    Q.SQL.Text := sqlCheckDeletable;
    Q.ParamByName('...').AsInteger := AID;
    try
      Q.Open;
      if Q.Fields[0].AsInteger > 0 then
        Result := ecNotDeletable;
      Q.Close;
    except
      on E: EDatabaseError do
        Result := E.ErrorCode;
    end;
  finally
    Q.Free;
  end;
end;
Viele Grüsse
Stephan

coderi 18. Jan 2013 11:15

AW: Wie ist der Programmierstil "professionell"
 
Ist zwar schon etwas her, aber das Forum vergisst nichts !

Vielen Dank für eure Ausführungen, ist stimme mit euch überein, das die Logik wohl eher in ein Datenmodul, oder
besser noch in eine zentrale Funktion gehört. Ich persönlich würde mich mittlerweile für den letzten tip von Stephan entscheiden,
da ich hier die "zentralste" und einfachste Möglichkeit sehe das ganze ohne viel primbamorium zu lösen, und auch zu verwalten.

Aber einen Fehlercode würde ich nicht zurückgeben, kann ich doch eine exeption "werfen", und die an beliebiger stelle "Fangen",
um ihn so, in einer mehr schichten welt, an der passenden stelle zu plazieren.
Ein weiterer Vorteil von exceptions:
Fehlercodes muss ich in einer liste vorhalten, einer Expetion gebe ich den, auch für den Benutzer aussagekräftigen Fehler,
gleich mit. Für den Fehlercode brauche ich eine extra variable.

grüße
Coderi

Bentissimo 18. Jan 2013 12:34

AW: Wie ist der Programmierstil "professionell"
 
Eine Exception auszulösen ist sicher in Ordnung. Für mich sind Exceptions und das Werfen solcher aber eigentlich genau das, was sie sind: Ausnahmen.

Die Erkenntnis, dass ein Datensatz nicht gelöscht werden darf ist aber für mich kein solcher Fall, sondern schlichtweg die Bestätigung einer Geschäftsregel.

Insofern sehe ich hier keine Notwendigkeit für eine Exception.

Nun mag mein Programmierstil altersbedingt schon etwas angestaubt sein. :roll:

Gibt es dazu weitere Meinungen? Würde mich interessieren.

Viele Grüsse.

Lemmy 18. Jan 2013 12:58

AW: Wie ist der Programmierstil "professionell"
 
Zitat:

Zitat von Bentissimo (Beitrag 1199581)
Eine Exception auszulösen ist sicher in Ordnung. Für mich sind Exceptions und das Werfen solcher aber eigentlich genau das, was sie sind: Ausnahmen.

Die Erkenntnis, dass ein Datensatz nicht gelöscht werden darf ist aber für mich kein solcher Fall, sondern schlichtweg die Bestätigung einer Geschäftsregel.

sehe ich genauso.

stahli 18. Jan 2013 13:08

AW: Wie ist der Programmierstil "professionell"
 
@Bentissimo

Ich sehe das ganz genau so (obwohl ich noch deutlich jünger bin ;-)).

Übrigens auch in Bezug auf try-finally-Blöcke (habe ich schon öfters erklärt). Es bringt m.E. nichts, ein Objekt aufzuräumen wenn das Projekt ohnehin in einem unkontrollierten Status ist.
Ich erzeuge ein Objekt und führe komplexe Handlungen aus. Irgendwo mittendrin knallt es. Macht nix, ich räume das Objekt weg und gut ist???
Der Fehler muss bereinigt bzw. umgangen werden. Sensible Daten müssen ggf. gesichert und das laufende Projekt muss ggf. neu gesatartet werden um einen kontrolierten Zustand zu erhalten.

Try-Except macht Sinn, wenn ich immer mit einem unkontrollierten Zustand rechnen muss (z.B. mei IO-Funktionen) und der Programmzustand auch nach der Fehlerbehandlung/Unterdrückung noch in Ordnung ist.

Objektfreigaben "zwanghaft" in einen Finally-Block aufzunehmen, halte ich für unnötig.


[Werbeblock]
Hast Du Dir mal meine Turniersoftware in Bezug auf Schach angesehen?
[/Werbeblock]

Bentissimo 18. Jan 2013 13:29

AW: Wie ist der Programmierstil "professionell"
 
@Stahli

Habe mir am vergangenen Wochenende die Testversion Deiner Turniersoftware runter geladen, daher vermutlich Deine Frage. :stupid:

Allerdings nicht in Sachen Schach, sondern mehr für ein kleines Backgammon-Turnier. 8-)

Bin derzeit in einem Projekt in der Schweiz und mein Scrum-Master kam irgendwie auf Backgammon. Ich war früher mal ganz gut und so haben wir in der Mittagspause ein bischen gespielt. Mittlerweile soll ich ein Turnier für sechs Leute organisieren und hab deshalb an Deine Software gedacht. :wink:

Bitte nicht böse sein, aber ich kam irgendwie nicht damit zurecht. :(

Die Idee war, schnell mal ein Round-Robbin anzulegen, sechs Namen einzutragen und dann per Knopfdruck die Runden und die Tabelle angezeigt zu bekommen.

So lief es leider nicht, aber auch diesmal kann es natürlich an mir liegen. Wie formuliert das Bummi immer so schön?

Das Problem liegt meist zwischen den Ohren! :lol:

stahli 18. Jan 2013 13:44

AW: Wie ist der Programmierstil "professionell"
 
[OT]
@Bentissimo
Backgammon kenne ich nicht, aber wenn es um Punkte erspielen geht, dann sollte das funktionieren. Die Personen musst Du in einem (temporären) Verein definieren.
Den Rest erklären Dir meine Anwälte heute Abend per pm. ;-)
[/OT]


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:42 Uhr.
Seite 2 von 2     12   

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-2025 by Thomas Breitkreuz