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.

http://i60.tinypic.com/op8ohy.jpg

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:
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.:

...
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:

...
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.