First Function:Useage:SCAR Code: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;SCAR Code: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.







Reply With Quote