Delphi Programm für Zufallszahlen.

[mausweazle]

Ah okay das wusste ich nicht..
Dann war wohl unser Lehrer ne Niete. Der kam nur bis zur Prozeduralen Programmierung.
Unser Prof hat uns vor 2 Wochen erzählt: "Jetzt wäre vor 20 Jahren die Informatikvorlesung zu Ende gewesen. Da wir jetzt aber 20 Jahre später leben, dürft ihr jetzt noch OOP lernen"

 

[0-8-15 User]

Vielleicht hilft dir das:

function min(a, b: integer): integer;
begin
  result := 1/2 * (a + b - Abs(a - b))
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  zahl, x, y: Integer;
begin
  try
    x := StrToInt(Edit1.Text);
    y := StrToInt(Edit2.Text);
  except
    ShowMessage('Fehler bei der Umwandlung StrToInt');
    Exit;
  end;

  zahl := Random(Abs(x-y))+min(x,y)+1;
  label1.caption  :=  IntToStr(zahl);
end;

end.