Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Ausdruck funktioniert nicht (https://www.delphipraxis.net/6074-ausdruck-funktioniert-nicht.html)

HappyTreeFriend 28. Jun 2003 14:29


Ausdruck funktioniert nicht
 
Moin Gemeinde.

Also ich habe einen Ausdruck zum Berechnen einer Zahl

Code:
FloatToStrF(w[1]*1000,ffFixed,10,0)=FloatToStrF(w[2],ffFixed,10,0);
so nun will ich das selbe als quotienten also

Code:
FloatToStrF(w[1]/1000,ffFixed,10,0)=FloatToStrF(w[2],ffFixed,10,0);
nur dann liefert er mir als ergebnis 0...

weiß jemand woran das liegt und wie man das Problem beheben kann...

thx 4 reply

Euer HappyTreeFriend

Christian Seehase 28. Jun 2003 14:42

Moin HappyTreeFriend,

also irgendetwas stimmt da an Deinem Codeschnipsel nicht.

Entweder es ist ein Vergleich, dann kann am Ende kein ; stehen, ausser das Ergebnis dieses Vergleiches wird zugewiesen, dann wäre die Frage wohin, oder es ist eine Zuweisung. Kann aber auch nicht sein, denn einer Funktion kann nichts zugewiesen werden, ausserdem müsste dann auch := da stehen.

Also was ist es denn nun, und wo kommt was raus?

HappyTreeFriend 28. Jun 2003 14:53

jo sry hab falsche zeile kopiert...

Code:
edit21.text:=FloatToStrF(w[1]*1000,ffFixed,10,0)
das rechnet er mir in ein edit aus

er soll es aber auch vergleichen, das ist aber im moment nebensächlich.

aso und zur info:

Code:
form8.Edit1.Text :=IntToStr(Random(100))+ FloatToStr(Random(1000)/100);
w[1]:=strtofloat(form8.Edit1.text);
jo wie gesagt multiplizieren tut er es, aber dividieren nicht... da kommt dann 0 raus und das kann nicht sein, weil 90,78/1000 is ja nicht 0, sondern 0,09078

MrSpock 28. Jun 2003 15:10

Hallo HappyTreeFriend,

du verlangst ja von der Funktion, das Ergebnis mit 0 Nachkommastellen auszugeben, naja, und dann kommt halt 0 raus. :mrgreen:

Der letzte Parameter bei deinem Aufruf sollte die Anzahl der Nachkommastellen anzeigen.

HappyTreeFriend 28. Jun 2003 15:24

naja. hab jetzt ne lösung... trotzdem danke =) hätt ich auch früher drauf kommen können ^^


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:48 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz