Objekt Kommunikation

[fajac]

Delphi-Quellcode:

// Hast du an dieser Stelle mal im Debugger überprüft, welcher Zweig ausgeführt wird?
// Falls nämlich der erste, so ist das Event der TWaffe-Instanz nicht gesetzt.
if (not Assigned(slWaffenListe)) or (slWaffenListe.Count = 0) then begin
    lLogger.LogFmt('TfrmStartGBH.Button1Click: slWaffenliste nicht angelegt oder leer.', [], llError);
    lLogger.LogFmt('TfrmStartGBH.Button1Click: Lege eine Test-Waffe an.', [], llWarning);
    pWaffe := TWaffe.Create('Test-Waffe', TRUE, 100, 99, 100);
  end else begin
    pWaffe := (slWaffenListe.Objects[0]) as TWaffe;
  end;