Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#9

Re: Zufall generieren dauert lange

  Alt 26. Mai 2004, 19:12
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
Andreas
  Mit Zitat antworten Zitat