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...