StringGrid problemas al seleccionar celdas

[danielmj]

Hola después de mucho tiempo, estoy con un programita destinado a matar mi tiempo libre, pero me he quedado atascado... resulta que tengo un TStringGrid que forma una matriz de 10 × 12 y cuyas celdas tienen valores númericos y aleatorios que van del 1 al 999999.



En un momento dado, cuand pulso el botón, espero que se seleccionen tres valores distintos de entre toda las celdas y me los muestre en una etiqueta, edit, memo... ¿pero que ocurre? que devuelve un "blanco" o un valor nulo o vacío. Por ejemplo si le pido que meta uno de esos valores en una etiqueta tal que "label3", está pierde el caption y no muestra nada, de ahí que piense en un valor nulo, blanco etc.

El código este:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  label7.Caption:= IntToStr(1+random(120)); //El 1+random(120) es para evitar que tome 0 como un valor válido. Y 120 es por que es el numero de celdas de la matriz.
  label8.Caption:= IntToStr(1+random(120));

 ...

  label9.Caption:= strGrid.Cells[(StrToInt(label7.Caption)),
  (strToInt(label8.Caption))];

Supuestamente label9, debe contener las coordenadas dadas por label7 y label8 y devolver de este modo el valor X que esté en esa coordenada. Pero me devuelve un valor nulo.

¿Alguna idea?
Gracias y un saludo.

[[escafandra]]

1.- Las filas y columnas empiezan por 0.
2.- Si te sales de rango devuelve 0

Si tu número de celdas es 120, está claro que estas fuera de rango, según tu código.

Saludos.

[ecfisa]

Hola danielmj.

Según veo en tu imágen, el StringGrid está declarado de 10 columnas x 12 filas y usas la primer fila para los títulos de columna. Por lo que supongo que has declarado las propiedades FixedCols y FixedRows con los valores 0 y 1 respectivamente, vg.:

Código Delphi [-]
...
var
  c,f: Integer;
begin
  Randomize;
  with StringGrid1 do
  begin
    ColCount := 10;
    RowCount := 12;
    FixedCols:= 0;
    FixedRows:= 1;
    Rows[0].CommaText:= 'Número,Número,Número,Número,Número,' +
                        'Número,Número,Número,Número,Número';
    for f:= FixedRows to RowCount - 1 do
      for c:= FixedCols to ColCount - 1 do
        Cells[c,f]:= IntToStr(Random(999999) + 1);
  end;
end;

El máximo valor del índice de las columnas debería ser 9 y el de las filas 11. Sin embargo, el código de tu mensaje que asigna valores esos índices, puede en el peor caso alcanzar cifras mas de ¡ 10 veces superiores !

Entonces, si las columnas comienzan en cero y las filas en uno (la fila 0 es ocupada por los títulos), sería:

Código Delphi [-]
...
var
  c,f: Integer;
begin
  with StringGrid1 do
  begin
    c:= Random(ColCount) + FixedCols; // FixedCols = 0 (*)
    f:= Random(RowCount-2) + FixedRows; // FixedRows = 1 
    Label7.Caption:= IntToStr(c);
    Label8.Caption:= IntToStr(f);
    Label9.Caption:= Cells[c, f];
  end;
end;

Random([rango]) genera un número aleatorio x, tál que 0 <= x < rango. Es decir que Random(ColCount) + FixedCols (*), podrá alcanzar un valor mínimo de 0 y un máximo de 9, mientras que Random(RowCount-2) + FixedRows un mínimo de 1 y un máximo de 11.

(*) Obviamente se puede omitir el uso de FixedCols en este caso.

Saludos

[danielmj]

buenas, gracias a los dos, hice lo que comentabas ecfisa y al principio no entendía muy bien lo que comentabas pero bueno, creo que al final pillé la idea. A parte, yo buscaba un numero aleatorio del 0 al 120, tu solución es mas elegante.

Un saludo.