Home » Tipps & Tricks » Object Pascal » Strings » Zufallstring generieren
Zufallstring generieren
Diese Funktion generiert einen Zufallsstring. Es können alle Zeichen des ASCII-Zeichensatzes verwendet werden.
function RandomString(strlength: integer): string; var temp : integer; begin randomize; repeat temp := random(122); //ggf. erhöhen if temp in [48..57{0-1}, 65..90{A-Z}, 97..122{a-z}] then //Kann um beliebige ASCII-Zeichen erweitert werden, //ggf. den Wert in Random hochsetzen result := result + Chr(temp); until length(result) = strlength; end; procedure TfrmMain.btnGenerateClick(Sender: TObject); begin edit1.text := RandomString(6); end;