Direccionar un StringGrid.

[JoseFco]

Hola Caro.

Eso quedo perfecto y a las mil marabillas.Gracias.


Un Saludo.


PD:Pence que el asunto con las direciones en un StringGrid ya estaba resuelto del todo y pues se me ocurre que puedo crear un componente usando una. Un LCD de 16 caracteres y dos lineas.(aprovechando que puedo asignarle el address real que un LCD trae.En unos dias posteo la idea completa, en este mismo hilo para darle continuidad a la idea de asignar address a los StringGrid.

[JoseFco]

Hola amigos.

Tengo un problemita con este codigo:

Código Delphi [-]
procedure TForm1.RunClick(Sender: TObject);
var
 aCol, aRow : Integer;
 Cad : String;
 begin
 Cad := Label1.Caption;
 aRow := StrToInt('$'+Cad[3])+1;
 aCol := StrToInt('$'+Cad[4])+1;
 StringGrid1.Col := aCol;
 StringGrid1.Row := aRow;
  ValorCasilla.Caption:= StringGrid1.Cells[aCol, aRow];
end;

Esto esta trabajando sin problemas desde la address 00 a la FF.Toma el valor de Label1.Caption (Cad)

Código Delphi [-]
aCol := StrToInt('$'+Cad[4])+1;

Esto esta bien porque esta tomando el valor del digito 4 del Label1(hex es lo que tiene el label)Por eso el StrToInt.
Esta linea de codigo es para recorrer los Col del grid (una linea) 0 a la F tengo mis 16 valores. esto esta perfecto aqui no hay problema.

El Problema:

Código Delphi [-]
aRow := StrToInt('$'+Cad[3])+1;

Esta en esta linea. Toma el valor del digito 3 del Label1 y pues solo llegara a la F. La cosa es cuando llega a la FF deberia seguir al address 100h.Pero con este codigo tomando solo el digito 3 ni mandraca el mago lo lograria.
tengo que tener un For i: 1 to 256 y poder lograr que al llegar a la F el maximo valor del digito 3 ya que es Hex entonces que comience a contar con el digito 2 tambien.

¿No se si me explique bien.?

Alguna idea de como lograr esto?

Un Saludo.

[JoseFco]

Bueno Amigos.

Resuelto el problema.

Código Delphi [-]
procedure TForm1.RunClick(Sender: TObject);
var
 aCol, aRow : Integer;
 Cad : String;
 begin
 Cad := Label1.Caption;
 aRow := StrToInt('$'+Cad[2]+Cad[3])+1;
 aCol := StrToInt('$'+Cad[4])+1;
 StringGrid1.Col := aCol;
 StringGrid1.Row := aRow;
  ValorCasilla.Caption:= StringGrid1.Cells[aCol, aRow];
end;

Un dolorcito de cabeza, pero al final las ideas se aclararon.

Un Saludo.