Okay, hier die
Unit:
Delphi-Quellcode:
unit Formelrechnen;
interface
uses
Classes, Controls;
type TFormel =
class(TComponent)
private
TermListe : TStringList;
function ParseTerm(Term :
String) :
String;
public
procedure Rechnen(Term :
String);
protected
constructor Create(AOwner : TComponent);
override;
end;
implementation
uses Unit1, Dialogs, SysUtils;
constructor TFormel.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
//Termliste initialisieren
TermListe := TStringList.Create;
end;
function TFormel.ParseTerm(Term :
String) :
String;
begin
// Funktion implementieren
// Hier ein Test
TermListe.Add('
test');
end;
procedure TFormel.Rechnen(Term :
String);
begin
ParseTerm(Term);
end;
end.
Der Aufruf im Programm (ausgestattet mit einem Edit und einem Button):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var newFormel : TFormel;
begin
newFormel := TFormel.Create(nil);
newFormel.Rechnen(Edit1.Text);
end;