Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
Hvis det skal virke rigtigt skal du altid huske at initialisere din random generator med Randomize når du starter dit program, gør det f.eks på formens activate event.
Og du skal ikke kalde random 2 gange hvis du har kaldt randomize under programstart
så får du nedenstående kode
procedure TForm1.FormActivate(Sender: TObject); begin Randomize; end;
procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := IntToStr(Random(10)); end;
type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1; z : Integer; // <------ DIN GLOBALE VARIABEL Z
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject); begin Randomize; end;
procedure TForm1.Button1Click(Sender: TObject); var x, y : Integer; <----- DINE LOKALE VARIABLE X, Y (X, Y LEVER KUN INDE I DENNE RUTINE) begin Label1.Caption := IntToStr(Random(10)); X : = 3; Y := 2; Z := X + Y; end;
Den samlede værdi at X+Y kan samles i én variabel, med følgende kode: z := x+y; //Z tildeles den samlede værdi af X + Y.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.