Warum kann delphi net rechnen ? Unerklärliches Problem

[Fredchenhh]

Hey leute ,
hab folgendes Programmiert :

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    BTGroesser: TButton;
    BTKleiner: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure BTGroesserClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  RateZahl:Integer;
  RateZahlMin:Integer;
  RateZahlMax:Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
RateZahl:=50;
RateZahlMin:=0;
RateZahlMax:=100;
Edit1.Text:=IntToStr(RateZahl);
Edit2.Text:=IntToStr(RateZahlMax);
Edit3.Text:=IntToStr(RateZahlMin);
end;

procedure TForm1.BTGroesserClick(Sender: TObject);
begin
RateZahlMin:=RateZahl;
RateZahl:=RateZahl+Round(RateZahlMax-RateZahlMin/2);
Edit1.Text:=IntToStr(RateZahl);
Edit2.Text:=IntToStr(RateZahlMax);
Edit3.Text:=IntToStr(RateZahlMin);
end;

end.

Mir geht es darum das ich die Zahl erraten kann an die jemand denkt. Das Problem ist wenn ich auf den Größer Button klicke kommt 125 bei raus aber wenn ich es nachrechne MÜSSEN es 75 sein. Was ist da falsch?LG

[DeddyH]

Klammern vergessen?
RateZahl:=RateZahl+Round((RateZahlMax-RateZahlMin)/2); Übrigens: wieso verwendest Du Fließkommaoperationen bei ganzen Zahlen?

[edit] Sry, Willkommen in der DP [/edit]

[Fredchenhh]

Oh mist stimmt ja Punkt vor Strich rechnung. Was ist eine Fließkommaoperation?

[mkinzler]

Zahlen mit Nachkommastellen.

[himitsu]

Integeroperationen sind schneller und optimaler, wenn man eh bei den Integern bleibt.

Delphi-Quellcode:

RateZahl := RateZahl + Trunc((RateZahlMax - RateZahlMin) / 2);

RateZahl := RateZahl + (RateZahlMax - RateZahlMin) div 2;

Wenn (RateZahlMax - RateZahlMin) positiv ist und es gerundet werden soll, dann muß man einfach nur noch die Hälfte des Teilers dazurechnen, vor dem Teilen.

Delphi-Quellcode:

RateZahl := RateZahl + Round((RateZahlMax - RateZahlMin) / 2);

RateZahl := RateZahl + (RateZahlMax - RateZahlMin + 1) div 2;

[Fredchenhh]

Und was ändert das?

[DeddyH]

Stand doch da:

Zitat von himitsu:

Integeroperationen sind schneller und optimaler, wenn man eh bei den Integern bleibt.

[Delphi-Laie]

Zitat von Fredchenhh:

Warum kann delphi net rechnen ?

Das ist das Problem, wenn man sich nicht der Hochsprache bedient, sondern hier unbedingt seinen Dialekt reindrücken muß: Ich verstand das Thema zunächst falsch und nahm an, daß gemeint sei, daß die Net-Version des Delphis rechnen könne.

[stahli]

Zitat von Delphi-Laie:

Das ist das Problem, wenn man sich nicht der Hochsprache bedient, sondern hier unbedingt seinen Dialekt reindrücken muß: Ich verstand das Thema zunächst falsch und nahm an, daß gemeint sei, daß die Net-Version des Delphis rechnen könne.

Ging mir genau so...
Mit einer ordentlichen Fragestellung hat man deutlich bessere Chancen auf Hilfe.

[Fredchenhh]

Oh mist das tut mir Leid. Wusste NICHT das es eine Delphi Net version gibt. Werde demnächst darauf achten. Das mit dem Delphi-Code wusste ich nicht hab einfach aus gewohnheit "Code" genommen. Wisst ihr wie ich es mache das ich auch 0 und 100 erraten kann?

LG