Noch eine Anmerkung am Schluss:
In dieser Zeile des Feuer-Buttons vom Formular
Delphi-Quellcode:
iAnzElem := pAktiveEinheit.GibWaffenListe(slWaffenListe);
if (not Assigned(slWaffenListe)) or (slWaffenListe.count = 0) then begin
wird es je nach Einstellung in den Projektoptionen evtl. zur
Exception kommen:
Wenn slWaffenListe nicht "assigned" ist, dann kann ich auch nicht mit ".count" darauf zugreifen!
Da ich aber in den Projektoptionen unter Compiler die "Vollst. Boolesche Auswertung" deaktiviert habe, wird bei mir die Prüfung einer if-Abfrage beendet, sobald das Gesamt-Ergebnis der Abfrage feststeht!