Delphi 6 Runden

[Soldier]

Kann mir jemand sagen, wo und was ich genau eingeben muss, damit er immer meinen wert aufrundet?
wär echt nett.


mfG Soldier

[pacman1986]

erstmal willkommen in der dp :dp:

das was du suchst ist der befehl

Delphi-Quellcode:

setroundmode(rmup);

es gibt noch weiter moeglichkeiten die man hier einsetzen kann wenn du jetzt round benutzt rundet er immer auf.
ps:die suche haette es auch getan :)

[Soldier]

jo. schon ma vielen dank dafür :)

aber wo genau muss ich den jetz in den quellcode reinschreiben?
:gruebel:

mfG

[Nils_13]

Zeig mal ein bisschen Code, sonst können wir dir nicht großartig weiterhelfen. Denk aber bitte gleich an die Delphi Tags ().

[Soldier]

Delphi-Quellcode:

procedure TLadekapazitaetsrechner.Button1Click(Sender: TObject);
var kT,gT,lJ,Sj,K,SS,Kol,Rec,Spio,B,Z,Rip,erg,ergk,ergM,Lade,ergkT,erggT:real;
begin
        
        kT:=strtofloat(edit1.Text);
        gT:=strtofloat(edit2.Text);
        lj:=strtofloat(edit3.Text);
        sJ:=strtofloat(edit4.Text);
        k:=strtofloat(edit5.Text);
        ss:=strtofloat(edit6.Text);
        kol:=strtofloat(edit7.Text);
        rec:=strtofloat(edit8.Text);
        spio:=strtofloat(edit9.Text);
        b:=strtofloat(edit10.Text);
        z:=strtofloat(edit11.Text);
        rip:=strtofloat(edit12.Text);
        Lade:=strtofloat(edit16.Text);


        ergkT:=(Lade/5000);  [color=#ff0000]das ergebnis hier soll gerundet werden[/color]
        erggT:=(Lade/25000); [color=#ff0000]und das auch. und nur auf ganze aufgerudet bitte 8)[/color]

        edit17.Text:=floattostr(ergkT);
        edit18.Text:=floattostr(erggT);

        erg:=(kt*5000)+(gt*25000)+(lj*50)+(sJ*100)+(k*800)+(ss*1500)+(kol*7500)+(rec*20000)+(spio*5)+(B*500)+(z*2000)+(rip*1000000);
        ergk:=((kt*5000)+(gt*25000)+(lj*50)+(sJ*100)+(k*800)+(ss*1500)+(kol*7500)+(rec*20000)+(spio*5)+(B*500)+(z*2000)+(rip*1000000))/1000;
        ergM:=((kt*5000)+(gt*25000)+(lj*50)+(sJ*100)+(k*800)+(ss*1500)+(kol*7500)+(rec*20000)+(spio*5)+(B*500)+(z*2000)+(rip*1000000))/1000000;

        edit13.Text:=floattostr(erg);
        edit14.Text:=floattostr(ergk);
        edit15.Text:=floattostr(ergM);
end ;

Ich bin noch übelst der Anfänger. Aber vielleicht kann mir ja jemand helfen :)
Find es schon ma klasse, das einem hier unwahrscheinlich schnell geholfen wird :)
danke schon ma


mfG

[edit=Jelly] DELPHI Tags gesetzt...
@Soldier: setze dazu nächstes Mal einfach deinen Delphi Code zwischen die DelphiTags:

Code:

[delphi]Dein Code[/delphi]

Mfg, Jelly[/edit]

[pacman1986]

hihi du hast die delphitags vergessen :)

Delphi-Quellcode:

setroundmode(rmup);
ergkT:=round(Lade/5000); 
erggT:=round(Lade/25000);

so sollte es gehen obwohl ich setroundmode in formcreate machen wuerde :)

[xaromz]

Hallo,

nutze doch bitte die [delphi]-Tags, damit wird's übersichtlicher.

In Deinem Fall würde ich nicht mit RoundMode rumspielen, sonder lieber die Funktion Ceil verwenden. Das ist nämlich das Mittel der Wahl, um aufzurunden (das Gegenstück wäre Floor). Zu finden sind die beiden Funktionen in der Unit Math.

Gruß
xaromz

[Soldier]

ich weiß nich was ihr mit delphi tags meint :oops:

jedenfalls gehts mit setroundmode nich :(

sagt immer: undeclared identifier 'setroundmode'

(ich rede über deplhi 6, ihr auch?) :)

hmm

[Insider2004]

Du musst die Mathe-Library hinzubinden:

uses
Math;

[pacman1986]

stimmt auch bei meiner version musst du math einbinden einfah oben bei uses einbinden

Delphi-Quellcode:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ComCtrls, StdCtrls,Math;