Mehr Speed für Random?

[Blink]

Hallo

Wieso rufst du randomize immer so oft auf? Du solltes dir es angewöhnen das randomize nur einmal auf rufen zb. so

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls, Tabnotbk, Grids, Outline;

type
  Tform1 = class(TForm)

var
  form1: Tform1;
  x:real;

implementation

{$R *.DFM}

function wurf (a,w:real):real;

function svsw (sa,wv:real):real;

function kgvskg (kga,kgv:real):real;

procedure Tform1.Button1Click(Sender: TObject);

procedure Tform1.AuswertenClick(Sender: TObject);

// Ale anderen randomize entfernen und nur das lassen
initialization
  randomize;
end.

Dan sollte random auch richtig funktionieren.