SRL Archive - Research & Development Lounge

RandomString

MylesMadness

2008-03-01 18:36:13

First Function:

Function RandomString(Length:Integer):string;
var
  I:integer;
begin
  SetLength(Result, Length)
  For I:=1 to length do
    Result[I]:=Chr(RandomRange(97, 122))
end;

Useage:

program New;

Function RandomString(Length:Integer):string;
var
  I:integer;
begin
  SetLength(Result, Length)
  For I:=1 to length do
    Result[I]:=Chr(RandomRange(97, 122))
end;

begin
  Cleardebug;
  writeln(RandomString(8))
end.