Hallo Leute,
ich habe ein Problem mit meinem Programm. Ich will eigentlich nur Zufallszahlen bekomm aber immer ein Problem wenn ich Randomize laufen lasse.
Code:
unit Unit1;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Random(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
a,b: integer;
implementation
{$R *.dfm}
procedure TForm1.Random(Sender: TObject);
begin
Randomize;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=random(12)+1;
b:=random(12)+1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.
wäre nett wenn ihr mir helfen könnt.
mfg Bot
Edit: Problem: Fehlermeldung Inkompatible Typen TObject und Integer, and der Stelle wo ich a:=random(12)+1 habe (bzw. B:=...)
sry für das vergessen