[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]

Код:

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 формы.

отвечу так:

Код:

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 ?