access violation

[ford42]

Hey,
ich versuche gerade von einer Unit einer Methode von einer anderen Unit einen Wert zu übergeben, also:

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.AddZahl(p_Param);
  end
end;

end.

und

Delphi-Quellcode:

unit Logic;

interface

uses
  System.Classes, System.SysUtils;

type
  TBerechnung = class
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure AddZahl(p_Parameter: String);
  end;

implementation

  procedure TBerechnung.AddZahl(p_Parameter: String);
  var
     eingabeZahl: String;
  begin
    eingabeZahl := eingabeZahl + p_Parameter;
  end;
end.

Aber da kommt bei der Zeile 'm_AddZahl.AddZahl(p_Param);' diese Fehlermeldung 'access violation' :/


Weiß jemand wo ich da den Fehler habe?


Vielen Dank im Voraus
Grüße ford42

[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.

[ford42]

Danke,
aber jetzt kommt die Fehlermeldung bereits bei 'm_AddZahl := TBerechnung.Create; // <----- das hier dabei schreiben'. :/

[Aviator]

Ganz sicher? Bist du mal mit dem Debugger durchgegangen und hast das kontrolliert? Mach das mal zuerst noch. Wenn du nicht weiterkommst, dann häng das komplette Projekt mal hier an.

PS: Welche Delphi Version verwendest du? Das kannst du in deinem Profil hinterlegen.

[ford42]

Ja, ich habe Break-Points gesetzt und als der Fehler kam, war der blaue Pfeil auch bei der Zeile. :/

EDIT: Sry, hab nun alles gepackt

[Aviator]

Bitte das komplette Projekt, wenn möglich als ZIP-Datei, anhängen. Hier fehlen sowohl die Projektdatei (*.dpr) also auch die Form-Datei (Gui.dfm).

Edit: OK, die DPR hast du noch nachgeschossen, aber die DFM fehlt trotzdem noch.

[nuclearping]

Zitat von ford42:

Ja, ich habe Break-Points gesetzt und als der Fehler kam, war der blaue Pfeil auch bei der Zeile. :/

Wie greifst du auf CalcController zu? Ich vermute, du instanzierst diesen hier auch nicht?

Und btw:

1. Klassen deklariert man in Delphi üblicherweise mit einem T -Präfix. Also TCalcController = class statt CalcController = class
2. Interne Felder in Klassen deklariert man mit einem F -Präfix. Also FAddZahl: TBerechnung; statt m_AddZahl: TBerechnung;
3. Du brauchst nicht von TObject ableiten, das sind Klassen standardmäßig. Also TCalcController = class ist das gleiche wie TCalcController = class(TObject)