Zum Thema Performance: Sortieren von 3000 Zeilen eines TMemo
Code:
Procedure aus Betrag #1: 0,26 Sekunden
Procedure aus vorherigem Betrag: 39,5 Sekunden
Damit ist die ursprüngliche Procedure mehr als 100fach schneller.
Zitat:
Und ob es nun wegen dem Assert rummst oder man eine
Exception selber schmeißt ist egal, da auch ohne das Gerafffel automatisch eine
Exception hochpoppt, wenn x keine gültige Instanz hat.
Also ich sehe das so:
Die Procedure erwartet ein gültiges Objekt von TStrings bzw. eine Ableitung davon.
Sollte der Programmierer fälschlicherweise ein "Nil-Objekt" übergeben, dann ist das Programmierfehler anzusehen; also ein Zustand der "eigentlich" nie auftreten dürfte.
Hier eine
Exception zu werfen wäre nicht richtig, da es sich nicht um einen erwarteten Fehler handelt.
Es bleiben also noch 4 Optionen übrig, wie man damit umgeht:
1.) nichts tun - damit würde es eine Zugriffsverletztung geben.
Leider gibt es überhaupt keine Hinweis auf die Ursache der Zugriffsverletzung.
Ich weiss nicht, kennt ihr das bescheidene Gefühl, wenn bei einer Livevorführung vor versammelter Mannschaft plötzlich eine Zugriffsverletzung angezeigt wird?
Man möchte geradewegs im Boden versinken.
2.) Assert verwenden - man bekommt Dateiname+Zeilennummer; das hilft ungemein bei der Fehlersuche
3.)
if not Assigned(s) then Exit;
Keine schlechte Option; so kann die Procedure keinen Schaden anrichten
4.) Kombination aus 2.) und 3.)
Delphi-Quellcode:
if not Assigned(s) then
begin
Assert(False, 'ShuffleTStrings(nil)');
Exit;
end;
Das scheint mir der beste und sauberste Weg zu sein mit dem nil-Zeiger Problem umzugehen.