Zufallsvariable

[Hans33]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm) 
    Edit1: TEdit; 
    Button1: TButton; 
    Label2: TLabel; 
    procedure Button1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  public 
    z : integer; 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var r : real; 
begin 
  r := StrToFloat(Edit1.Text);

       if r < z then Label2.Caption := 'Zu niedrig' 
  else if r > z then Label2.Caption := 'Zu hoch' 
  else if r = z then Label2.Caption := 'Erraten'; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
randomize; 
z := random(100)+1;
end;
end.