Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Objekt Kommunikation

    Delphi
    by fajac, 19. Okt 2009
  Sorry, es muss wohl heißen:
  
  pWaffe.OnWaffeAbfeuernEvent := pSpiel.OnWaffeAbfeuernEvent;
  
  Dazu musst du allerdings die Prozedur TSpiel.OnWaffeAbfeuernEvent public machen.
• Forum: Object-Pascal / Delphi-Language

  Re: Objekt Kommunikation

    Delphi
    by fajac, 19. Okt 2009
  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; ...
• Forum: Object-Pascal / Delphi-Language

  Re: Objekt Kommunikation

    Delphi
    by fajac, 19. Okt 2009
  // 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...
• Forum: Object-Pascal / Delphi-Language

  Re: Objekt Kommunikation

    Delphi
    by fajac, 2. Jul 2009
  Ein Event ist die Lösung. z.B.
  
  
  type
  TObjectData = class
  private
  FNotify : TNotifyEvent;
  public
  property OnNotify : TNotifyEvent read FNotify write FNotify;
  procedure NotifyGUI;