Schleife in die editausgabe prozedur

[Daniel B]

Hallo,

Zitat von Luckie:

Delphi-Quellcode:

function GetRandomNumber: Integer;
begin
  result := Radom(10);
end;

procedure TForm1.Form1OnCreate(Sender: TObject);
begin
  Randomize();
end;

Delphi-Quellcode:

function GetRandomNumber: Integer;
begin
  result := Radom(10); //Hier wohl Random
end;

procedure TForm1.Form1OnCreate(Sender: TObject); //Hier wohl nur Form1Create
begin
  Randomize(); //Hier wohl ohne die ()
end;

Grüsse, Daniel