5 respuestas en este tema

[jacapu]

Hola, llevo dándole vueltas un buen rato y no logro hacerlo funcionar.  Estoy creando una lista de números con Random que paso a un memo y
según el número del Random debe ejecutarse el evento OnClick de un botón especifico.
Intento pasar el valor de la línea del memo a entero para  poder seleccionar el botón que debe ejecutarse y me da error de conversión al ejecutar el programa.
Tengo el siguiente código:
 

 

delphi

procedure TVPrincipal.SpeedB1Click(Sender: TObject);
var
Ristra:TAlea; //clase que guarda los números del seleccionables
n:integer;
numact:integer;
numact1:string;
numeros:integer;
begin
    numeros:=8;
    Memo1.Lines.Clear;
    Ristra:=TAlea.Create(112);//numeros seleccionables
    for n:=1 to numeros do // numeros elegidos
       begin
       if Ristra.PillaNumero<>0 then
          begin
          memo1.Lines.Add(IntToStr(Ristra.PillaNumero));
          numact1:=Memo1.Lines[n]; //cadena con el valor de la linea del memo
          numact:=StrtToInt(numact1); //conversión a entero <<<<<<da error de conversión al correr ,(mensaje: " ' ' is not a valid integer value"
          case Ristra.PillaNumero of
             1:SB1.OnClick(Sender);
             2:SB2.OnClick(Sender);
             // 2,3 ...
             end;
          end;
       end;
    Ristra.Reset;
    Ristra.Free;
end;

 

 
No sé si se puede mejorar.
Saludos.

[escafandra]

Cuando publiques código, dale el formato usando las etiquetas de código. He editado tu mensaje para darle formato.
 
No entiendo el planteamiento que tienes usando un TMemo para convertir enteros a texto y viceversa. Desde mi punto de vista debes usar un array de enteros para almacenar los números aleatorios que correspondan conm los botones a pulsar y no usar un memo, pues sobra.
 
Ya que tienes una clase que almacena los números (no pones nada de código de la misma), te propongo algo como esto:
 

delphi

type
  TAlea = class
  private
    Items: array of integer;
  public
    constructor Create(const Size: integer);
    destructor  Destroy; override;
    function PillaNumero(i: integer): integer;
  end;
 
implementation
 
 
constructor TAlea.Create(const Size: Integer);
var
  i: integer;
begin
  inherited Create;
  SetLength(Items, Size);
  for i:=0 to Size - 1 do
    Items[i]:= Random(Size)+1;
end;
 
destructor TAlea.Destroy;
begin
  Items:= nil;
  inherited Destroy;
end;
 
function TAlea.PillaNumero(i: integer): integer;
begin
  Result:= Items[i]
end;
 
//
//
//
 
procedure TVPrincipal.SpeedB1Click;
var
  Ristra: TAlea; 
  n: integer;
  numeros:integer;
begin
  numeros:= 3;
  Ristra:= TAlea.Create(numeros);
  for n:=0 to numeros -1 do
  begin
    case Ristra.PillaNumero(n) of
    1: SB1.OnClick(SB1);
    2: SB2.OnClick(SB2);
    3: SB3.OnClick(SB3);
    // ...
    end;
  end;
end; 

Aunque puestos a simplificar el asunto de pulsar botones de forma aleatoris puedes obviar la clase TAlea y generar el número justo al necesitarlo:

delphi

procedure TVPrincipal.SpeedB1Click2;
var
  n: integer;
  numeros:integer;
begin
  numeros:= 3;
  for n:=0 to numeros -1 do
  begin
    case Random(numeros)+1 of
    1: SB1.OnClick(SB1);
    2: SB2.OnClick(SB2);
    3: SB3.OnClick(SB3);
    // ...
    end;
  end;
end;

Saludos.

[jacapu]

Hola Escafandra, gracias por responder tan pronto.

La clase TAlea me genera los números aleatorios sin repetición.

Hasta aquí todo bien.

Lo que no me funciona es la conversión de la línea del Memo de cadena a entero.

Con este valor entero ya podría entrar en la función case para ejecutar el código del evento OnClick del botón asignado a este número de la secuencia que muestra el Memo.

Parece como si al convertir de cadena a entero encontrara un valor vacío, (" "), que muestra en el mensaje de error al correr el programa.

En lugar de case tambien podría ser con if then else, era para no escribir tanto.

He intentado mostrar el valor de "Memo1.Lines[n]" y  "Memo1.Lines.Strings[n]" mediante ShowMessage y me sale el diálogo en blanco, como dice el mensaje de error.

Entrando en "case" con "Ristra.PillaNumero" tampoco activa el botón asignado.

He probado con "Randomize" y "RandomRange" en lugar de "TAlea", pero algunas veces genera números repetidos.

El problema está en conseguir el valor de la línea actusl del memo como cadena o entero y poder entrar con ese valor en la función "case" o "if ..then ...".

[escafandra]

Por partes:

1) ¿Por qué quieres pasar un entero a String y luego volver a recuperar el entero desde el String en una misma función? No tiene sentido. 

2) Tu cadena está vacía porque los indices de linea comienzan en cero y tu bucle comienza con n=1. Prueba con numact1:=Memo1.Lines[n-1] o comenzando con  n = 0.

3) No has puesto el código de la clase TAlea que también puede contener errores. En concreto no se entiende como funciona PillaNumero ya que no tiene ningún indice que apunte a uno de los 112 número que parece que almacena la clase. En caso de que esa función genere el número aleatorio, ten en cuenta que la ejecutas varias veces y que en cada una te devolvería un número diferente con lo que el valor que almacenes en el TMemo y el del botón pulsado no corresponderían.


Saludos.

[jacapu]

Hola Escafandra, perdona la tardanza pero he estado ocupado.

No he puesto el código de la clase TAlea porque no es mío. Lo encontré en Trucomanía. No sé si se puede poner aquí código de otro sin que él lo sepa. La dirección es:

 http://www.trucomani...uco.cgi?493

TAlea genera un número aleatorio sin repetición desde n1 a nfinal y los escribe cada uno en una línea del Memo..

Por esto los números van a un Memo.

Como te comentaba antes, la idea era, puesto que en cada linea del Meno se guarda un número, coger los números de cada línea y hacer Click en el botón correspondiente.

Quería hacerlo con "case" para no escribir sentencias: 

php

if Memo1.Lines[n] ='1' then SB1.OnClick(SB1) else if ...

En la sincronizción de las líneas del Memo con las opciones del "case" te doy la razón, fallo mío.

Si uso "Random" o "RandonRange" a veces genera números aleatorios repetidos y en consecuencia se ejecutaría el evento "OnClick" del botón correspondiente más de una vez.

Gracias por tu tiempo.

saludos.

[escafandra]

Según el planteamiento de convertir a texto el número para luego volver a encontrar el número original, el código sería así:

delphi

procedure TForm1.SpeedB1Click;
var
  Ristra: TAlea; 
  n: integer;
  numeros:integer;
begin
  numeros:= 3;
  Memo1.Clear;
  Ristra:= TAlea.Create(3);
  for n:=0 to numeros -1 do
  begin
    Memo1.Lines.Add(IntToStr(Ristra.PillaNumero));
    case StrToInt(Memo1.Lines[n]) of
    1: SB1.OnClick(SB1);
    2: SB2.OnClick(SB2);
    3: SB3.OnClick(SB3);
    // ...
    end;
    Update;
  end;
end;

Pero me parece mucho más razonable de esta otra manera:

delphi

procedure TForm1.SpeedB1Click;
var
  Ristra: TAlea; 
  n: integer;
  numeros:integer;
  Pillado: integer;
begin
  numeros:= 3;
  Memo1.Clear;
  Ristra:= TAlea.Create(3);
  for n:=0 to numeros -1 do
  begin
    Pillado:= Ristra.PillaNumero;
    case Pillado of
    1: SB1.OnClick(SB1);
    2: SB2.OnClick(SB2);
    3: SB3.OnClick(SB3);
    // ...
    end;
    Memo1.Lines.Add(IntToStr(Pillado));
    Update;
  end;
end;

Saludos.