Objekt Kommunikation

[fajac]

Delphi-Quellcode:

  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);
    // ==>
    pWaffe.OnWaffeAbfeuernEvent := OnWaffeAbfeuernEvent; 
    // <==
  end else begin
    pWaffe := (slWaffenListe.Objects[0]) as TWaffe;
  end;