[Delphi] Getal afronden

[Freak187]

Wij hebben een variabele als Integer gedeclareerd, als wij de waarde van deze variabele instellen op 10 en via een opdracht laten wij er 1 vanaf trekken. Dit zou dus 9 moeten worden maar het wordt 90. Wij denken dat het als 9,0 wordt weergegeven. Moeten wij dit getal als een andere variabele declareren? Of hoe kunnen wij dit anders doen.

[Rambo]

Beetje vaag. laat eens dat stukje code zien dan.

[Just_a_Gamer]

Hint gebruik de functie RoundTo

[Eegee]

Wat jullie doen zou goed moeten zijn, maar wij weten niet hoe het getal 90 bij jullie wordt weergegeven. Dat wil zeggen, op welke manier tonen jullie het getal? Welke 'opdracht' gebruiken jullie? Wij kunnen beter helpen als jullie het relevante stuk programmacode tonen.

[Tomatoman]

Blijkbaar doe je iets verkeerd. Code graag, anders valt er niets zinnigs over te zeggen.

[Osiris]

Delphi:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  dec(i);
  ShowMessage(IntToStr(i));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 10;
end;

end.

DIT werkt iig prima bij mij, dus je doet toch ECHT iets verkeerd

[Freak187]

Dat RoundTo lijkt me wel wat, maar waar moet ik dat neerzetten?

begin
RoundTo (credits);
credits := credits - 1;
Form1.Canvas.TextOut(60, 450, 'Credits:' + IntToStr(credits));

[Creepy]

Freak187 schreef op 19 januari 2003 @ 20:48:
Dat RoundTo lijkt me wel wat, maar waar moet ik dat neerzetten?


[...]

Ik zou eerste eens die "opdracht" bekijken die er 1 van af trekt voordat je gaat afronden. Ik gok dat daar toch echts iets verkeerds in zit, want van een integer 1 aftrekken m.b.v. dec(), of gewoon met blaat:=blaat - 1 gaat toch echt altijd goed.

[Osiris]

Tja, Round(i) werkt bij mij toch altijd prima, dus als je nou eens laat zien wat je ZELF allemaal al eens geprobeerd hebt?

[Just_a_Gamer]

Freak187 schreef op 19 januari 2003 @ 20:48:
Dat RoundTo lijkt me wel wat, maar waar moet ik dat neerzetten?


[...]

Je gebruikt de functie RoundTo verkeerd. ( Zie Help van delphi ).

code:

  ADouble := RoundTo( Credits, -1 ); // 1 cijfer achter de comma