Integer: Skrevet bagfra?

Altså du ønsker 1234 konvereret til 4321 ?

Så skal du bare konvetere det til en streng og så vende den om og så konvetere den tilbage til en integer.

Jens B

ja. hvordan vender man den så om?

Det er nemt, du holder blot et spejl op mod skærmen <G>

ja og så scanner man vel billedet ind og prøver at sammenligne dem, eller hvad??? ;-)

uses
  StrUtils;

function ReverseInteger(const i : Integer) : Integer;
begin
  Result := StrToInt(ReverseString(IntToStr(i)));
end;

Frit fra leveren

Du laver en for løkke fra 0 til ((længden div 2) - 1) hvor du bytter
om på index og (længde-index)

Humor er her nok af ;)

function ReverseString(const s: string): string;
var
  i, len: Integer;
begin
  len := Length(s);
  SetLength(Result, len);
  for i := len downto 1 do
  begin
    Result[len - i + 1] := s[i];
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Tal1,Back: Integer;
begin
  Tal1 := 1234;
  Back := StrToInt(ReverseString(IntToStr(Tal1)));
  ShowMessage(IntToStr(Back));
end;

Du kan også vende tallene bytevis:

// Turning a smallint (16 bit signed)
function i16( i : smallint ) : smallint;
var
  x1 : smallint;
  x2 : array[0..1] of byte absolute x1;
  x3 : array[0..1] of byte absolute i;
begin
  x2[0]  := x3[1];
  x2[1]  := x3[0];
  result := x1;
end;

// Turning a word (16 bit unsigned)
function r16( i : word) : word;
var
  x1 : word;
  x2 : array[0..1] of byte absolute x1;
  x3 : array[0..1] of byte absolute i;
begin
  x2[0]  := x3[1];
  x2[1]  := x3[0];
  result := x1;
end;

// Turning a longint (32 bit signed)
function r32( i : longint) : longint;
var
  x1  : longint;
  x2  : array[1..4] of byte absolute x1;
  x3  : array[1..4] of byte absolute i;
begin
  x2[1] := x3[4];
  x2[2] := x3[3];
  x2[3] := x3[2];
  x2[4] := x3[1];
  result := x1;
end;

puha svarende bliver mere og mere avanceret ;-) er ikke helt stærk til Delphi :) endnu..
tak for svarende

Damn jeg skulle da have skrevet mit forslag som et svar, nåh men jeg får nok nogle point en anden gang !?

Jeg kom lige til at tænke på dette spørgsmål igen.

Hvis det er Integer->Integer man vil så er følgende noget
hurtigere end at køre via string:

function MyReverseInteger(const v : Integer) : Integer;

var
  tmp : Integer;

begin
  tmp := v;
  result := 0;
  while (tmp > 0) do begin
      result := 10 * result + (tmp mod 10);
      tmp := tmp div 10;
  end;
end;