Formatfunktion würfelt die Datentypen wahllos zusammen

[grenzgaenger]

Hallo zusammen,

ich habe folgenden code

Delphi-Quellcode:

    ePercent.Text  := format('%.3f', [(eHigh.value 
                                         / items[0].Price 
                                         * 100)]) + '%';

wobei eHigh = 625 ist und price = 413. herrauskommen sollte nach adam riesse 151,332%

was kommt raus? '-58064811854291,560%' ich seh den wald vor lauter bäumen nciht mehr... wo liegt der hund begraben, sieht ihn jemand? :gruebel: :gruebel:

[taaktaak]

Moin, Moin,

muss nicht die Klammer anders gesetzt werden?

(eHigh.value / items[0].Price) * 100

[inherited]

Von welchem Typ sind die beiden Variablen?
@taaktaak: Sollte eigentlich auch ohne diese Klammern funktionieren.

[turboPASCAL]

k. A. was du da machst, bei mir hauts hin.

Delphi-Quellcode:

... := format('%0.3f %%', [(eHigh.value / items[0].Price) * 100]);

[grenzgaenger]

hab jetzt die klammer entfernt, das ergebnis ist das selbe :(

Delphi-Quellcode:

ePercent.Text  := format('%.3f', [eHigh.value
                                         / items[0].Price
                                         * 100]) + '%';

[taaktaak]

@inherited
ja, du hast Recht Divisíon und Multiplikation sind ja gleichwertig, also wird von links nach rechts aufgelöst ...

[taaktaak]

@grenzgaenger - die NULL vor dem . macht vielleicht den Unterschied ??!!

[grenzgaenger]

Zitat:

Zitat von turboPASCAL

k. A. was du da machst, bei mir hauts hin.

Delphi-Quellcode:

... := format('%0.3f %%', [(eHigh.value / items[0].Price) * 100]);

tja, bei mir mag er nicht... dabei hab ich nur das 1. und 2. glied getauscht... seitdem funzt es nicht mehr...

[grenzgaenger]

Zitat:

Zitat von taaktaak

@grenzgaenger - die NULL vor dem . macht vielleicht den Unterschied ??!!

hatte davor die 3 stehen, jetzt die 0 --- '%0.3f%%' , leider ändert sich am ergebnis nichts ...

[taaktaak]

Bist du denn sicher, dass die beiden Variablen auch den von dir erwarteten Inhalt haben?

[grenzgaenger]

Zitat:

Zitat von inherited

Von welchem Typ sind die beiden Variablen?
@taaktaak: Sollte eigentlich auch ohne diese Klammern funktionieren.

Delphi-Quellcode:

ePercent.Text  := format('%.3f', [eHigh.value      //extended
                                 / items[0].Price  //currency
                                 * 100]) + '%';

mal davon abgesehen, dürften hier nur die kommastellen verschoben sein...

Zitat:

Zitat von taaktaak

Bist du denn sicher, dass die beiden Variablen auch den von dir erwarteten Inhalt haben?

yep, bin ich. da ich da mit dem debugger drauf stand... aber was rauskommt ist einfach ein quatsch von einer %-zahl...

[edit=SirThornberry]Beiträge zusammengeführt - Mfg, SirThornberry[/edit]

[SirThornberry]

Könntest du dem Beitrag bitte einen aussagekräftigen Namen geben? "Format" sagt so gut wie nicht aus worum es bei deinem Problem geht.

[taaktaak]

Tja, ich habe das jetzt auch mal "nachgestellt"...

Delphi-Quellcode:

var a,b : Integer;

a:=600;
b:=400;
showmessage(format('%0.3f',[a/b*100])+'%');

Bei mir zeigt er 150,000% an - so wie es sein soll

[grenzgaenger]

Zitat:

Zitat von taaktaak

Tja, ich habe das jetzt auch mal "nachgestellt"...

Delphi-Quellcode:

var a,b : Integer;

a:=600;
b:=400;
showmessage(format('%0.3f',[a/b*100])+'%');

Bei mir zeigt er 150,000% an - so wie es sein soll

theoretisch, sollt es so funktionieren, wie bei dir ... nur schafft das mein delphi nich...

daher hab ich jetzt eine funktion erstellt ...

Delphi-Quellcode:

 function _percent(value, base: double): string;
 begin
   result := format('%.3f%%',[value / base * 100]);
 end;

wenn ich dieser die variablen übergebe, funzt es... :shock: :shock: :shock:

tja, was soll man dazu noch sagen... :drunken: :drunken: :drunken:

[alzaimar]

Zitat:

Zitat von grenzgaenger

theoretisch, sollt es so funktionieren, wie bei dir ... nur schafft das mein delphi nich...

Du weisst, das das Problem nicht Delphi ist, sondern davor sitzt. :zwinker:

[Hawkeye219]

Hallo,

meiner Meinung nach ist in diesem Fall der Delphi-Compiler das Problem. Der wird nämlich durch die MixedMode-Operation (Currency und Extended) innerhalb der Format-Funktion offenbar so irritiert, dass er für den Ausdruck sowohl einen falschen Datentyp ermittelt als auch einen fehlerhaften Code erzeugt. Eine kleine Anpassung und Umstellung der Operanden liefert das erwartete Resultat:

Delphi-Quellcode:

ePercent.Text := format('%.3f', [(100.0 / items[0].Price * eHigh.value)]) + '%';

Auch die Berechnung außerhalb der Format-Funktion liefert mit dem Original-Ausdruck das richtige Resultat.

Gruß Hawkeye