Delphi 6 Runden

[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]