Ver Mensaje Individual
  #3  
Antiguo 17-04-2009
Avatar de DarkMan
DarkMan DarkMan is offline
Miembro
 
Registrado: jul 2006
Posts: 102
Reputación: 18
DarkMan Va por buen camino
Dándote el valor en formato string es incluso más fácil que pasándolo a integer:
Código Delphi [-]
...
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;
...

Cita:
Empezado por Jose Meneses
OJO : no se pueden usar DOWNTO
Pues no entiendo por qué, quedaría más fácil aún:
Código Delphi [-]
...
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;
...
__________________
"La recompensa de una buena acción está en haberla hecho"

Última edición por DarkMan fecha: 17-04-2009 a las 00:05:55.
Responder Con Cita