Konzeptfrage Ergebnismenge einer Funktion

[alzaimar]

Zitat von mashutu:

So war das gemeint:

[Edit: ganz sauber]

Was Du da machst ist schon sehr merkwürdig. In der Funktion erzeugst Du eine Query und zerstörst sie dann. Ergo liefert 'MyData' immer nil.
So würde ich das machen:

Delphi-Quellcode:

Procedure Hauptroutine;
Var
  qMyQuery : TQuery;         // riecht nach BDE, lieber nicht verwenden

Begin
  qMyQuery := TQuery.Create (nil);
  Try                        // --- dieses Try kapselt die Instantiierung der TQuery-Komponente
    // qMyQuery mit der Datenbank verbinden
    qMyQuery.SQL.Text := 'Select * from View_VerdammtKomplexeAbfrage';
    qMyQuery.Open;
    Try                      // --- dieses Try kapselt das Öffnen der Query
      qMyQuery.First;        // Nicht nötig, aber illustriert, das man vom ANFANG anfangen will.
      While Not qMyQuery.Eof Do Begin
        DoSomething (qMyQuery);
        qMyQuery.Next;
      End;
    Finally
      qMyQuery.Close;
    End;
  Finally
    qMyQuery.Nil;            // FreeAndNil ist überflüssig, da qMyQuery lokal ist und nicht weiter verwendet wird.
  End
End;

Wieso schreibe ich die Instantiierung VOR das Try? Weil laut Guidelines ein Konstruktor keine logischen Prüfungen vornimmt und insofern (außer bei Speichermangel oder anderen fatalen Fehlern) nicht abschmiert. Und fatale Fehler muss man nicht abfangen, weil das eben fatal sein kann. Einen Speichermangel abzufangen, um eine Messagebox anzuzeigen, führt nämlich zu -jupp- einer Exception wegen Speichermangel...