Delphi-Quellcode:
procedure Überweisung;
begin
Person1 := TPerson.Create;
Person1.LoadFromDB;
Person2 := TPerson.Create;
Person2.LoadFromDB;
Person1.Überweise(Person2, 100);
Person1.SaveToDB;
Person2.SaveToDB;
Person1.Free;
Person2.Free;
end;
Bleiben wir mal bei diesem Beispiel von Seite 2.
Stelle dir vor, diese procedure läuft in einen Webserver bei einem Zahlungsdienstleister wie PayPal.
PayPal hat
Millionen Kunden weltweit.
Jetzt nutzen 5000 Leute pro Stunde die Überweisungsfunktion.
Aus irgendeinen Grund schlägt LoadFromDB() oder Überweise() oder SaveToDB() fehl.
Der eigentliche Grund ist unerheblich.
Man kann es sich vorstellen, also wird es passieren.
Im schlimmsten Fall hast du dann 10000 TPerson-Instanzen pro Stunde, die dir den Speicher deines Webservers zumüllen.
Selbst unter 64-Bit ist dann durch Speicherfragmentierung irgendwann Schluss.
Ohne unhöflich sein zu wollen, aber da trennt sich wirklich die Spreu vom Weizen bzw. der Hobby-Programmierer vom Professional, der einfach schon zuviel (Schlimmes) gesehen hat und aus bitterer Erfahrung gelernt hat.