Revertir numeros

[Jose Meneses]

Hola amigos, otra vez le doy gracias al foro por permitirme a preguntar cosas que yo no sé. El día de hoy me dejaron una tarea acerca de vectores y stringgrids de ingresar un numero en una columna ej: 1498234 y en la columna de abajo de el stringgrid tiene que desplegar el numero reverso ej: 4328914, OJO : no se pueden usar DOWNTO y hay que ponerle el limite de columnas que el usuario quiere, también tiene que ser en windows application,, muchas gracias por su atención y por la intención de ayudarmme...:):):):)

[Caro]

Hola Jose, no entiendo muy bien donde exactamente esta tu duda, sería bueno que intentaras hacerlo y nos dijeras donde te estas trancando, te pongo el ejemplo para invertir el numero.


var
Num, Aux, Dig : Integer;
begin
Num := StrToInt(StringGrid.Cells[TuColumna, TuFila]);
Aux := 0;
While Num>0 Do
begin
Dig := Num Mod 10;
Aux := Aux*10 + Dig;
Num := Num Div 10;
end;
StringGrid.Cells[TuNuevaColumna, TuFila] := IntToStr(Aux);


Saluditos

[DarkMan]

Dándote el valor en formato string es incluso más fácil que pasándolo a integer:

...
var
Temp: String;
Buffer : Integer;
Resultado: String;
begin
Resultado:='';
Temp := StringGrid.Cells[TuColumna, TuFila];

For Buffer:=0 to Length(Temp)-1 do
Resultado:= Resultado + Temp[ Length(Temp)- Buffer ];

StringGrid.Cells[TuNuevaColumna, TuFila] := Resultado;
...


OJO : no se pueden usar DOWNTO

Pues no entiendo por qué, quedaría más fácil aún:

...
var
Temp: String;
Buffer : Integer;
Resultado: String;
begin
Resultado:='';
Temp := StringGrid.Cells[TuColumna, TuFila];

For Buffer:=Length(Temp) downto 1 do
Resultado:= Resultado + Temp[ Buffer ];

StringGrid.Cells[TuNuevaColumna, TuFila] := Resultado;
...

[Caro]

Hola, también se tiene la función ReverseString.


StringGrid.Cells[TuNuevaColumna, TuFila] := ReverseString(StringGrid.Cells[TuColumna, TuFila])


Saluditos

[Jose Meneses]

Caro mil gracias, ademas no sabia lo del reverse string, me has ayudado!! mil mil gracias:):):):):):):)