Zufall generieren dauert lange

[shmia]

Zitat von Ultimator:

Delphi-Quellcode:

procedure TForm1.CreateOTP(OriginalText: string);
var i: integer;
begin
  for i := 1 to length(OriginalText) do
  begin
    Memo3.Text := Memo3.Text + inttostr(random(255));
    Application.ProcessMessages;
  end;
end;

Das ist aber extrem ungünstig programmiert!!!
Besser so (braucht nur wenige ms):
   Memo3.Text := RandomString(Length(OriginalText)); Siehe:
(CodeLibrary) Zufallstrings erzeugen