Warum kann delphi net rechnen ? Unerklärliches Problem

[Fredchenhh]

@ mkinzler:Bekomm ich damit auch das Problem gelöst das er 0 und 100 nicht erraten kann?
@divby0: Warum ist der Rechenweg falsch ?
So siehts Fertig aus

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;
    BTNochmal: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BTGroesserClick(Sender: TObject);
    procedure BTKleinerClick(Sender: TObject);
    procedure BTNochmalClick(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);
end;

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

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

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

end.

[Sir Rufo]

Zitat von Fredchenhh:

@ mkinzler:Bekomm ich damit auch das Problem gelöst das er 0 und 100 nicht erraten kann?
@divby0: Warum ist der Rechenweg falsch ?
So siehts Fertig aus {...}

Es wäre zuckersüß von Dir, wenn du die Delphi-CodeTags verwenden würdest

Code:

procedure CodeTags;
  begin
    // doof zu lesen
  end;

Delphi-Quellcode:

procedure DelphiTags;
  begin
    // Viel besser zu lesen
  end;

Eine vernünftige Code-Einrückung verbessert die Lesbarkeit nochmals rapide