[PascalScript 3.0] 3 / 2 = 1 ????

[Jakob Ullmann]

Hallo.

Scheinbar bekommt die PascalScript beim Rechnen von 3/2 = 1 heraus. Bei einer Double-Variable. Ich hab das so gemacht, wie es hier beschrieben steht:

der Code sieht also so aus:

Delphi-Quellcode:

      PSScript1.Script.Text :=
               'var ' +
                 'X: Double; ' +
               'begin ' +
                 'X := ' + expression + '; ' +
                 'GetResult(X); ' +
              'end. ';

Was ist da faul? Irgendwas muss ja faul sein, denn bei 3/2-1.5 als Expression kommt -1.5 heraus.

EDIT: Und bei 10/3 kommt 3 heraus. Bei 10/3.0 dagegen 3.33333 - kann man das der PascalScript nicht irgendwie abgewöhnen? Für sowas gibt es doch "div"...

[mkinzler]

Die haben das wohl bei c abgeschaut

[Marc.]

Crosspost.

[Jakob Ullmann]

Ich hab das Problem jetzt gelöst, durch Zusatz von RegExpr.

Delphi-Quellcode:

      RE := TRegExpr.Create;
      ...
      RE.Expression := '([0-9]*)';
      expression := RE.Replace(expression, '$1.', True);
      expression := StringReplace(expression, '..', '.', [rfReplaceAll]);
      ...
      RE.Free;

Weiß zwar nicht, wieso da dann 3.. und nicht 3. stand, aber hauptsache es funktioniert.