como generar palabras aleatorias

[mmoreno]

hola
tengo un problema soy nuevo en esto de programacion un amigo hace tiempo me hablo de esta pagina y estos foros que son lo maximo por que los mejores salen de aqui, basta de alagos y a lo que vine

quiero generas palabras aleatorias pero no ten go la forma correcta lo que hice fue poner un una base de datos las letras y los numeros y signos que quieros usar para generar la palabras esto se me hace muy ineficiente porque toma mucho tiempo hacerlo ahi una forma de generar o funcion que genere palabras con una longitud contro lada para yo poder usarlo.

Gracias de antemano y si les puedo ayudar en linux me avisan que tengo mucha experiencia en esto.!!

[marcoszorrilla]

Cuando dices signos que quieres decir:
ó à â .....

O es que lo que pretendes es generar frases con dichas palabras aleatorias.

Otra pregunta, sería estas palabras tienen que tener sentido, porque dadas las letras del alfabeto, que pueden hallarse en una matriz y la activación de los números aleatorios, lo más normal es que el 99% de las palabras formadas sean incoherentes para nuestro lenguaje?


Un Saludo.

[marcoszorrilla]

He preparado este ejemplo, pero ya es un poco tarde y no lo retoco, necesitas un Listbox, según mis cáculos te pueda aguantar unas 30.000 palabras.

procedure TForm1.Button1Click(Sender: TObject);
var
MisLetras:string;
nAncho:Integer;
nIni:Integer;
nPal:Integer;
Mots:String;
nIndice:Integer;
begin
MisLetras:='abcdefghijklmnñopqrstuvwxyz-,_';
nAncho:=10;
Randomize;
  Mots:='';

  For nIni:=1 to 5000 do
  begin

    for nPal:=1 to nAncho do
    begin
    nIndice:=Random(Length(MisLetras));
        while nIndice = 0 do
        begin
         nIndice:=Random(Length(MisLetras));
        end;
    Mots:=Mots+MisLetras[nIndice];
    end;
    Listbox1.Items.Add(Mots);
   
    Mots:='';
  end;


ShowMessage(IntToStr(listbox1.items.count));

end;

Un Saludo.