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