Mathematischer Parser für komplexe Zahlen + Quaternionen

[NicoDE]

Laufen beide (mit QMath und QMath2) unter Delphi 6.02 Personal (RTL Update Pack 3)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Parser: TCQParser;
  Foobar: TComplex;
begin
  Parser := TCQParser.Create();
  with Parser do
    try
      Foobar.x := 4;
      Foobar.y := 2;
      Parser.Ac := Foobar;
      ParseC('A');
      Foobar := Parser.SolveC();
      ShowMessage(IntToStr(Trunc(Foobar.x)) + IntToStr(Trunc(Foobar.y)));
    finally
      Free();
    end;
end;