Inverter Numero...

[dhyeggo]

Galera teria alguma forma simples de eu inverter um numero...

o esquema é o seguinte, tenho um Edit onde vou digitar um numero... exemplo 568258 ai quando eu clicar no botao inverter ele tem que mostrar o numero 852865 que é o inverso do que eu tinha digitado anteriormente.

valeu

[Thales Pontes Martins]

procedure revertStr(st : string) : string;
var 
  i, l: cardinal;
begin
  l:=length(st);
  setlength(result,l);
  for i:=0 to l-1 do result[l-i]:=st[i+1];
end;

[dhyeggo]

valeu...

brigadao...