Gracias al compa Metal_Kingdom por su orientación y ayuda en el montón de dudas que siempre me aclara.
Código: Seleccionar todo
{Delphi Version: 7.2
Author..........: Pink
Script Function...: Random String
Uso..............: RND(largo de cadena en numero)
Ejemplo: showmessage(RND(200)); }
Function RND(len: integer): string;
var
cadena:string;
Ram:integer;
x:integer;
begin
cadena:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw xyz$%&[]\()*+,@-./0123456789:;<=>?^_`‡¶€„…†‡ˆ‰Š‹Œ1Ž1?‘’“•–—˜™š›œ1žŸ¡¢£¤¥¦§¨©ª«¬1®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑ ÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ';
for x:=1 to len do
begin
Ram:=random(213)+1;
Result:=Result+cadena[Ram];
end;
end;Saludos
