Warum kann delphi net rechnen ? Unerklärliches Problem

[divBy0]

ok.

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

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

[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

[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

[Fredchenhh]

Bitte andere Lösung als das hier :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
RateZahl:=50;
RateZahlMin:=-1;
RateZahlMax:=101;
Edit1.Text:=IntToStr(RateZahl);
end;

Das ist etwas unschön

[stahli]

Ich kann nicht ganz folgen, was Du genau willst...
-1 und 101 als exclusive Grenzwerte zu definieren, ist nicht unbedingt eine schlechte Lösung.
Sonst musst Du Deine Funktion apassen, die den Wert ermittelt.

(Aber tröste Dich, mich hat einem anderen Beitrag auch gerade niemand verstanden )

[Xzeer]

Zitat von 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.

...mhh dachte ich auch erst...

[Blup]

Was bitte soll den dieses " /2 " überhaupt bewirken, scheint mir zumindest unsinnig?

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 }
    FRateZahl: Integer;
    FRateZahlMin: Integer;
    FRateZahlMax: Integer;
    procedure SetRateZahl(AValue: Integer);
    procedure Rate;
    procedure Start;
  public
    { Public-Deklarationen }
    property RateZahl: Integer read FRateZahl write SetRateZahl;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Rate;
begin
  RateZahl:= FRateZahlMin + Round(FRateZahlMax - FRateZahlMin + 1);
end;

procedure TForm1.SetRateZahl(AValue: Integer);
begin
  FRateZahl  := AValue;
  Edit1.Text := IntToStr(AValue);
end;

procedure TForm1.Start;
begin
  FRateZahlMin :=   0;
  FRateZahlMax := 100;
  RateZahl     :=  50;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Start;
end;

procedure TForm1.BTGroesserClick(Sender: TObject);
begin
  if RateZahl < FRateZahlMax then
  begin
    FRateZahlMin := RateZahl + 1;
    Rate;
  end;
end;

procedure TForm1.BTKleinerClick(Sender: TObject);
begin
  if RateZahl > FRateZahlMin then
  begin
    FRateZahlMax := RateZahl - 1;
    Rate;
  end;
end;

procedure TForm1.BTNochmalClick(Sender: TObject);
begin
  Start;
end;

end.