Manipular data entre StringGrids

[[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"