Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function Randomstring(strLen: Integer): string;
- var
- ID: string;
- begin
- ID := 'QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm1234567890';
- Result := '';
- Repeat
- Result := Result + ID[Random(Length(ID)) + 1];
- until (Length(Result) = strLen)
- end;
Add Comment
Please, Sign In to add comment