Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Aus Integer-Wert bestimmte Stelle extrahieren

   
    by alzaimar, 6. Jul 2007
  So würde ich das machen, wenn ich unbedingt die Stelle angeben will...
  Function GetDigit (anInteger, aDigit : Integer) : Integer;
  Begin
  Case aDigit of
  1 : Result := anInteger Mod 10;
  2 : Result := (anInteger Div 10) Mod 10;
  3 : Result := (anInteger Div 100) Mod 10;
  4 : Result := (anInteger Div 1000) Mod 10;
  5 : Result := (anInteger Div 10000) Mod 10;
  6 :...