+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: تابع تولید رشته های تصادفی در دلفی (/showthread.php?tid=527)
تابع تولید رشته های تصادفی در دلفی - Amin_Mansouri - 07-14-2011
کد:
function Randomstring(strLen: Integer): string;
var
str: string;
begin
Randomize;
str := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVW XYZ';
Result := '';
repeat
Result := Result + str[Random(Length(str)) + 1];
until (Length(Result) = strLen)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//generate a string with 10 chars
showmessage( Randomstring(10));
end;