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;

[xaromz]

Hallo,

Zitat:

Zitat von Soldier

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

über dem Editor befinden sich verschiedene Buttons. Einer ist mit "Delphi-Code" beschriftet. Wenn Du jetzt Deinen Quellcode markierst und den Button drückst, wird der Quellcode von zwei Tags eingefasst: [delphi] und [/delphi]. Dadurch wird der Quellcode formatiert dargestellt und ist besser lesbar. Die Tags kannst Du auch mauell einfügen.

Zitat:

Zitat von Soldier

jedenfalls gehts mit setroundmode nich :(

sagt immer: undeclared identifier 'setroundmode'

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

hmm

Ich würde wie oben geschrieben sowieso einen anderen Weg gehen.

Gruß
xaromz

[Soldier]

jo. klasse. echt krass. es funzt endlich

vielen dank nochma :)


ach so. noch was. kann mir villeicht noch jemand sagen, wie man delphi beibringt den button mit einbgabetaste auszulösen?

wenn ich also etwas in ein textfeld schreibe und enter drücke, das er dann gleich berechnet und ich nich mit der maus auf den button klicken muss??!!


@xaromz: danke für den tipp

mfG

[Nils_13]

1. Edit auswählen.
2. Objectinspector anklicken.
3. Unter "Ereignisse" gehen.
4. Doppelklick auf OnKeyDown.
5. Code anpassen und einfügen:

Delphi-Quellcode:

if Key = VK_RETURN then
  Button1Click(Sender);

6. Neue Frage, neuer Thread.

[Soldier]

Echt vielen Dank.

Euer Forum is echt das größte :D

So klasse wird einem hier geholfen!!!!!!!

:dancer:

mfG

[Khabarakh]

Zitat:

Zitat von Nils_13

1. Edit auswählen.
2. Objectinspector anklicken.
3. Unter "Ereignisse" gehen.
4. Doppelklick auf OnKeyDown.
5. Code anpassen und einfügen:

Delphi-Quellcode:

if Key = VK_RETURN then
  Button1Click(Sender);

6. Neue Frage, neuer Thread.

Das ist aber weder die feine noch die einfache Art.

Delphi-Quellcode:

Button.Default := true;