Zufallsvariable

[DeddyH]

Hier mal ein schnell runtergetipptes Beispielprojekt (implementation-Teil):

Delphi-Quellcode:

uses Math;

procedure TfrmRaten.btnRatenClick(Sender: TObject);
var Ratezahl: Integer;
begin
  Ratezahl := StrToIntDef(edtEingabe.Text,0);
  case Sign(Ratezahl - Zahl) of
     0: ShowMessage('Erraten');
     1: ShowMessage('Zu hoch');
    -1: ShowMessage('Zu niedrig');
  end;
  edtEingabe.SetFocus;
  edtEingabe.SelectAll;
end;

procedure TfrmRaten.FormCreate(Sender: TObject);
begin
  Randomize;
  Zahl := Random(100) + 1;
end;