wie die letzten 2 zeichen eines integer Wertes ermitteln

[Dragon Haerd]

Ich suche eine Funktion die es mir ermöglicht die letzten 2 zeichen eines Integer wertes auzulesen ich habe zwar schon stundenlang gesucht aber leider nichts gefunden
in php habe ich das problem so gelöst das ich zuerst die länge des integerwertes ausgelesen habe und dann diesen wert um 2 vermindert habe als nächsten schritt habe ich dann den wert an der so errechneten stelle geteilt und den ersten teil weggeschnitten


ich hoffe ihr könnt mir helfen

P.S: ich wäre euch dankbar wenn ihr hier nicht gleich mit komplizierter delphi fachsprache kommt denn ich schreibe in delphi erst seit 2 einhalb wochen

P.P.S.: ich verwende Delphi 7

[Dax]

"i mod 100"?

[mr_emre_d]

Habs nicht getestet aber so müsste das funzen :

Code:

function GetLast2Values( const Int: Integer ): TPoint; // TPoint.X = Vorletzter Wert, TPoint.Y = Letzter Wert
var
  buf: String;
begin
  buf      := IntToStr( Int );
  Result   := Point( 0, 0 );
  if Length( Buf ) > 1 then
  begin
    Result.X := StrToInt( Buf[Length(Buf)-1] );
    Result.Y := StrToInt( Buf[Length(Buf)]   );
  end else
    MessageDLG( 'Wert hat nur 1 Zeichen!', mtError, [mbOK], 0 );
end;

Aufruf wäre dann so:

Code:

  ShowMessage( IntToStr( GetLast2Values( 123 ).X ) ); // --> 2
  ShowMessage( IntToStr( GetLast2Values( 123 ).Y ) ); // --> 3

MfG

[Dax]

Ieks...

Besser:

Delphi-Quellcode:

function GetLast2Values(Int: Integer): TPoint;
begin
  Result.X := Int mod 10;
  Result.Y := (Int div 10) mod 10;
end;

[Dragon Haerd]

Zitat:

Zitat von Dax

"i mod 100"?

danke manchmal sieht man den Wald vor lauter bäumen nicht :)
den anderen beiden auch ein großes Dankeschön aber da ich die beiden letzten 2 Zeichen sowiso zusammenhängend brauche werde ich "int mod 100" nehmen da das am kürzesten ist

mfg Niklas

[gemy]

Habe das auch eben gebraucht. Habe es so gelöst:

Gegeben : Zufällige Zahl zwischen 1000 und 9999

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl, nr1, nr2,nr3,nr4: integer;
begin
 randomize;
 zahl :=randomRange(1000-9999);
  Nr1 := trunc(zahl/ 1000); //liefert erste Stelle
  Nr2 := trunc((frac(zahl/ 1000)*10)); //liefert zweite Stelle
  Nr3 := trunc((frac(zahl/ 100)*10));  // dritte
  Nr4 := trunc((frac(zahl/ 10)*10));   // vierte
end;

Habe es mit mehreren Zahlen getestet, 1000, 9999 funktioniert einwandfrei.

[himitsu]

Du willst jetzt also für einen Integer über unrundbare Fließkommazahlen gehen?

DIV und MOD und DivMod

Delphi-Quellcode:

d00X = i mod 10;
d0X0 = (i div 10) mod 10;
dX00 = (i div 100) mod 10;
...

Delphi-Quellcode:

DivMod(i, 10, i, d00X);  // d00X := i mod 10;  i := i div 10;
DivMod(i, 10, i, d0X0);  // d0X0 := i mod 10;  i := i div 10;
DivMod(i, 10, i, dX00);  // dX00 := i mod 10;  i := i div 10;
...

Bzw. hier im Beispiel naturürlich, für Beide zusammen.

Delphi-Quellcode:

LastZwo := i mod 100;

[Hobbycoder]

Wenn's nur um die Zeichen als ASCII-Zeichen geht:

Delphi-Quellcode:

  if length(inttostr(i))>2 then
    result:=copy(inttostr(i), length(inttostr(i))-2, 2) else
    result:=inttostr(i);

oder als Int

Delphi-Quellcode:

  if length(inttostr(i))>2 then
    result:=inttostr(copy(inttostr(i), length(inttostr(i))-2, 2)) else
    result:=i;

Nicht so "mathematisch" gelöst, aber sollte funktionieren.

[himitsu]

PS:

Delphi-Quellcode:

RightStr(IntToStr(i), 2)

, bzw.

Delphi-Quellcode:

RightStr({'0' +} IntToStr(Abs(i)), 2)

,
auch wenn eine mathematische Lösung ein bissl "optimaler" arbeitet, als jegliche "aufwändige" Stringmanipulation.

Und so als Tipp, probier deine Lösung mal mit einer negativen Zahl. :zwinker:

[Hobbycoder]

:-D an RightStr hab ich gar nicht gedacht