Formel ausführen

[Timelesk]

Hi,

ich habe ein wahrscheinlich seltenes Problem (denn über die Suche hab ich nix gefunden):

Der Benutzer kann in einem Edit-Feld, welches nur Zahlen und manche Rechenzeichen erlaubt, eine Formel eingeben.
Diese möchte ich dann ausführen lassen und in der Label1.Caption anzeigen lassen.

Formel: ((5*x)/y)-6

Code:

Delphi-Quellcode:

  formel.Text := StringReplace(formel.Text,'"','^', [RfReplaceall]);
  formel.Text := StringReplace(formel.Text,'','', [RfReplaceall]);
  formel.Text := StringReplace(formel.Text,'x',soll.text, [RfReplaceall]);
  formel.Text := StringReplace(formel.Text,'y',haben.text, [RfReplaceall]);
  label1.Caption := floattostr(strtofloat(formel.text));

Aber er gibt mir nur zurück, dass der Wert kein Real-Wert ist...
Wie kann ich das Problem lösen?

Vielen Dank

[Luckie]

Such mal im Forum nach Mathe parser.

[Kompon Ente]

Ich hab mal 'nen Taschenrechner geproggt und hatte dort die Variable Wert1 vom Typ Real.

Versuch's mal damit..

[dizzy]

Zitat:

Zitat von Kompon Ente

Ich hab mal 'nen Taschenrechner geproggt und hatte dort die Variable Wert1 vom Typ Real.

Versuch's mal damit..

:bounce1: Klasse! ...nur wo ist der Bezug? :gruebel:

Was du willst ist so in der einfacher Form nicht möglich. Du hast Strings, und mit Strings kann ein PC zunächst einmal in mathematischer Sicht überhaupt nichts anfangen. Dafür braucht es dann einen sog. Parser der den String interpretiert und die eignetliche Rechung aufbereitet. Es gibt hier im Forum schon mehrere solcher Parser unterschiedlichem Umfangs (u.a. auch einen von mir ;)). Da findest du sicherlich etwas passendes für dich.

Gruss,
Fabian