Thema: Delphi Formel ausführen

Einzelnen Beitrag anzeigen

Timelesk

Registriert seit: 24. Jul 2004
72 Beiträge
 
#1

Formel ausführen

  Alt 25. Jul 2005, 14:16
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
  Mit Zitat antworten Zitat