[RoboStudent]

Здравствуйте!
Не могу разобраться с одной странной особенностью:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
const
  alphabet='abcdefghijklmnopqrstuvwxyz';
var
  temp: string;
  i:integer;
begin
  temp:='';
  for i:=1 to 8 do
   temp:=temp+alphabet[random(length(alphabet)+1)+1];
   memo1.Lines.Add(temp);
end; 


Генерируются случайные фразы, вставляются в memo1, но!
Если перезапустить программу и начать генерацию, все фразы
генерируются в том же самом порядке, что и в прошлый запуск
программы.
И еще - программа иногда генерирует не восьмизначные, как задумано,
а и трёх и пятизначные и даже иногда однозначные.

От чего всё это зависит?

Заранее благодарю!

[lmikle]

При старте программы вызови Randomize;

[RoboStudent]

Ага, понял. Спасибо!

Проблему генераций решил так:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
const
 alphabet='abcdefghijklmnopqrstuvwxyz';
var
 temp: string;
begin
 temp:='';
 while length(temp)<8 do
 begin
  temp:=temp+alphabet[random(length(alphabet))+1];
 end;
 memo1.Lines.Add(temp);
end; 


Как я понял, его не устраивал периодический 0 в выдаче random. В общем, всё хорошо.

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var   FBoundary: String; begin   Randomize;   FBoundary:='';   while Length(FBoundary)<8 do     FBoundary:=FBoundary+Chr(Random(26)+97); // Ord('a') = 97   Memo1.Lines.Add(FBoundary); end;

[roamer]

Вообще-то, чтобы уменьшить шансы на повтор псевдослучайных последовательностей, лучше Randomize поместить где-то в OnCreate формы.

[NumLock]

Сообщение от roamer

Вообще-то, чтобы уменьшить шансы на повтор псевдослучайных последовательностей, лучше Randomize поместить где-то в OnCreate формы.

отвечу так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

procedure       Randomize; {$IFDEF LINUX} begin   RandSeed := _time(nil); {$ENDIF} {$IFDEF MSWINDOWS} var         systemTime :         record                 wYear   : Word;                 wMonth  : Word;                 wDayOfWeek      : Word;                 wDay    : Word;                 wHour   : Word;                 wMinute : Word;                 wSecond : Word;                 wMilliSeconds: Word;                 reserved        : array [0..7] of char;         end; asm         LEA     EAX,systemTime         PUSH    EAX         CALL    GetSystemTime         MOVZX   EAX,systemTime.wHour         IMUL    EAX,60         ADD     AX,systemTime.wMinute   { sum = hours * 60 + minutes    }         IMUL    EAX,60         XOR     EDX,EDX         MOV     DX,systemTime.wSecond         ADD     EAX,EDX                 { sum = sum * 60 + seconds              }         IMUL    EAX,1000         MOV     DX,systemTime.wMilliSeconds         ADD     EAX,EDX                 { sum = sum * 1000 + milliseconds       }         MOV     RandSeed,EAX {$ENDIF} end;

Description

Randomize initializes the built-in random number generator with a random value (obtained from the system clock). The random number generator should be initialized by making a call to Randomize, or by assigning a value to RandSeed.

Do not combine the call to Randomize in a loop with calls to the Random function. Typically, Randomize is called only once, before all calls to Random.

про OnCreate рекомендаций нет, так же как и запрета на вызов перед циклом Random'ов

[roamer]

Понятно.
А Random ?