Random Length String of Random Characters

[StevenK]

I feel certain I saw the answer to this one on this forum sometime in the last week or two but can't re-find it for looking.
I'm looking to have a simple function that returns a string of random characters, the string itself being of a random length.
Any thoughts anyone?
Thanks in advance.
Steve

 

[earlrainer]

Hi,
Hope this helps

function Randomstring(maxlength:integer):string;
var i,j:integer;
begin
i:=random(maxlength);

for x:=1 to i do
result:=result+char(random(255));

end;

 

[BobbaFet]

This the thread that I posted

thread102-239790

Hope it helps you, BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com

http://cwcon.50megs.com/

 

[BobbaFet]

By the way, it became a really funny program !!!
Having lots of fun with it BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com

http://cwcon.50megs.com/

 

[BobbaFet]

A simpler version is something like this btw:

function RanStr(MaxNumberOfChars: Integer): String;
var MaxLength, i: Integer;
begin
i := 0;
Randomize;
MaxLength := Random(MaxNumberOfChars);

while i < MaxLength do
begin
i := i + 1;
Result := Result + Chr(Ord('A') + Random(26));
end;
end;

It needs to the second random needs to be 26 in stead of 25
as MikeEd posted in my question, because it won't generate
a Z if it's 25.

Good luck, BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com

http://cwcon.50megs.com/

 

[BobbaFet]

Btw sorry for all the seperate posts BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com

http://cwcon.50megs.com/