Manipular data entre StringGrids

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[*Caro*]

Empezado por JoseFco

¿ Existe alguna propiedad que me permita manipular el contenido de una casilla a la siguiente a la derecha o a la izquierda? De existir fuera muy interesante entenderla, de lo contrario pues la tendria que crear por codigo.

Hola Jose, a que te refieres con manipular el contenido de una casilla a la siguiente derecha o izquierda . Que es exactamente lo quieres hacer, digamos que estas en la casilla de la columna 3, que téndría que pasar cuando vas a la casilla de la izquierda o derecha.

Saluditos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[*Caro*]

Tu lo que quieres es mover el bit (osea la casilla donde estas) tanto a la izquierda como a la derecha. Lo que se me ocurre es que actives la propiedad para poder mover columnas y con eso podras mover las columnas tanto a la izquierda como a la derecha. La propiedad es Options->GoColMoving lo colocas a True.

Saluditos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[Lepe]]

Lo más fácil es como lo estás haciendo ahora, no creo sea viable andar borrando columnas e insertando nuevas, es más lioso

Código Delphi [-]
procedure Multiplica(gr:TStringGrid);
var i:integer;
begin
  for i:= gr.cols -1 downto 1 do
    gr[i,0] := gr[i-1];
  gr[0,0] := '0';
end;

procedure Divide(gr:TStringGrid);
var i:integer;
begin
  for i:= 0 to gr.Cols -2 do
    gr[i,0] := gr[i+1];
  gr[gr.cols -1,0] := '0';
end;

Creo que el stringgrid tiene la propiedad "Cols" o "ColsCount" no recuerdo bien (no lo uso mucho).

He supuesto que el bit de menos peso está en la columna cero. Si lo tienes al revés, solo intercambia el nombre de los procedimientos, el que multiplica en realidad dividiría y al revés.

Saludos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[egostar]]

Hola amigo,

Y no te sirve usar la funcion ReverseString() ????

Código Delphi [-]
uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  Cadena: string;
begin
  Cadena := '76543210';
  ShowMessage(cadena+#13+ReverseString(cadena));
end;

Salud OS

[[BlueSteel]]

Hola JoseFco

tambien puedes utilizar el NiceGrid, si bien no estoy seguro que pueda hacer lo que tu dices de una manera fácil... es mejor que el StringGrid....

Puedes ver sus características y descargarlo desde aquí...

Salu2

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[Lepe]]

Si necesitas tanto control sobre las columnas, es mejor como lo estás haciendo ahora, sin bucles ni nada.

El bucle "for" lo hice pensando en la forma más rápida, pero si tenemos que controlar varias excepciones, al final el código se acaba ensuciando mucho y una modificación es más complicada.

Lo que sí te aconsejo es crear rutinas que le pases el Grid como parámetro, así no tienes que duplicar código. No sé si será viable, tú verás:

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
begin
  Divide(ACC);
end;

procedure TForm1.Divide(elGrid:TStringGrid);
var tmp:string;
begin
tmp := elGrid.Cells[7,0]; // para no perderlo
elGrid.Cells[7,0] :=elGrid.Cells[6,0];
elGrid.Cells[6,0] :=elGrid.Cells[5,0];
elGrid.Cells[5,0] :=elGrid.Cells[4,0];
elGrid.Cells[4,0] :=elGrid.Cells[3,0];
elGrid.Cells[3,0] :=elGrid.Cells[2,0];
elGrid.Cells[2,0] :=elGrid.Cells[1,0];
elGrid.Cells[1,0] :=elGrid.Cells[0,0];
elGrid.Cells[0,0] := tmp;
end;

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"