случайние числа

[bicdibus]

при использовании random(80); выдает одни и те же числа,даже если перед рандом поставитьrandomize; при каждом запуске программы одни и те же числа, как мне получить действительно случайное число?

[W0LF]

Не знаю, у меня в Delphi 7 при Randomize каждый раз выдает разные, а не выдает "одни и те же" числа.

http://delphibasics.ru/Randomize.php

[vasek123]

Не пойму, почему у вас выдает одинаковые цифры? Вот, на скорую руку набросал на Delphi 7 програмку:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    RandomButton: TButton;
    procedure RandomButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RandomButtonClick(Sender: TObject);
var
  i:integer;
begin
  i:=random(80);
  Edit1.Text:=IntToStr(i);
end;

end.

Вот результат пяти попыток:

0
2
68
16
21

И где тут одинаковые числа, а вообще, приведите исходник, где у вас выходит подобная ерунда...

[bicdibus]

сори при копирование кода увидел маленькую ошыбочку,которая все и запорола извините за беспокойство