Hallo,
ich möchte verschiedene Funktionen und Prozeduren in einer
Unit auslagern. Ich habe hierfür einen Typen definiert, den ich mit diesen bestücke.
Delphi-Quellcode:
type TFormel = class(TComponent)
private
TermListe : TStringList;
function ParseTerm(Term : String) : String;
public
procedure Rechnen(Term : String);
protected
constructor Create(AOwner : TComponent); override;
end;
Unter anderem ist auch eine StringList für die einzelnen Terme dabei.
Im Konstruktor rufe ich folgendes auf:
Delphi-Quellcode:
constructor TFormel.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
//Termliste initialisieren
TermListe := TStringList.Create;
end;
Im Programm erstelle ich dann ein Objekt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var newFormel : TFormel;
begin
newFormel := TFormel.Create(nil);
newFormel.Rechnen(Edit1.Text);
end;
In der Rechnenfunktion wird dann auf den Term zugegriffen (z.B.
TermListe.Add('Test');). Genau hier bekomme ich dann aber eine Fehlermeldung, wieso?
Wäre nett, wenn mir jemand helfen könnte. Danke!