Wie ist der Programmierstil "professionell"

[Bentissimo]

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