access violation

[Aviator]

Du musst das Objekt zuerst instanziieren bevor du es benutzt.

Delphi-Quellcode:

unit Controller;

interface

uses
  Logic;

type
  CalcController = class(TObject)
    private
      m_AddZahl: TBerechnung;
    public
      procedure Notify(p_Action: String; p_Param: String);

  end;

implementation

procedure CalcController.Notify(p_Action: String; p_Param: String);
begin
  if (p_Action = 'Zahl') then
  begin
    m_AddZahl := TBerechnung.Create;   // <----- das hier dabei schreiben
    m_AddZahl.AddZahl(p_Param);
  end
end;

end.

Nur ist es aber auch wichtig, dass du das Objekt m_AddZahl auch wieder mit m_AddZahl.Free; freigibst wenn du es nicht mehr benötigst.